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LGood new 




If you want to get the most out of your Commodore 128 or 64. 
we hove goods news for you. The Pocket 128 and 64 Series 
of Softwore both offer you serious, professional quolity 
software packages that are easy to use ond inexpensive. 



Howe«isy? 




Pocket 128 or 64 Software is so easy, you're ready to start 
using it as soon as it's loaded into memory. Even if you've 
never been in front of a computer before, you'll be up and 
running In thirty minutes. In foct, you probably won't ever need 
the reference guide , , , 'help' is available at the touch of o key. 
Thot's how eosy. 





How serious? 

Pocket 128 or 64 pockages hove all the power you're ever 

likely to need. They hove all of the feotures you'd expect in 

top-of-the-line software, and then some. The good news is thot 

Pocket 128 or 64 Software Packoges are priced way down 

there . . . where you can afford them. 

Fast, powerful, easy to learn and inexpensive. 

Soy, thot is good newsl 




AlTibr one and one for a 




Pocket 128 or 64 Software Packages offer you something 
else you might not expect , . , integration. You con combine the 
output of Pocket Writer, Pocket Filer and Pocket Planner 
mto one piece of work. You con create a finished document 
with graphs, then send individually addressed copies. 



m line is Sol 



The word solutions is our middle nome and bottom line. When 
you purchase Pocket 126 or 64 software, you con count on 
it to solve your problems. 








Pocket Writer 1 28 or 64 
Word Processing 

Whcrt you see is what you gel 

With Pocket Writer 128 or 64, there's no more guessing 
what text will look like when you print it. Whot you see is whot 
you get . . , on screen and in print. There ore no fancy codes to 
memorize, no broken words at the end of o line- 
Easy to learn ond sophisticated. Pocket Writer 128 or 64 
offers standard wora processing features plus - - . 



• on-5creen formatting and 
wordwrap 

• on-screen boldface. 

underlines and itoUcs 

• no cornplicated formot 
commands to clutter text 

• on-screen hetp oT oil levels 



spelffng-checker lets you add 
words to your dictionary 

40 or 80 columns on screen 

files compotibfe with 
PoperClip'" or other word 
processors 



Pocket Planner 128 or 64 
Computerized Spreadslieet 

Moke lost woffk of budgeting and 
forecasting 




Pocket Planner 128 or 64 software lets you moke fast work 
of oil your bookkeeping chores. Cheque books, household 
accounts, business forecasting and bookkeeping ore lust some 
of the jobs that Pocket Planner 128 or 64 packoges make 
easier. You can even create four different kinds of graphs. 

Accurate, sophisticated and easy to use. Pocket Planner 
1 28 or 64 offers stondard spreodsheet features plus , . . 

• accuracy up to 16 digits, 
about twice os many as moat 

Sreodsheets for the 
immodore 128 or 64 

• sidewoys printing ovoiloble on 
dot matriif printers, for 
oversized spreadsheets that 
won't fit on standard paper 

• on-screen help at oil levels 

• compatible with VisiColc'" files 



• 80 column on-screen option 
for the Commodore 64 in 
odditbn to the standard 40 
columns 

■ grophics include batn 

Stacked bar. line and pie 

graphs thot con also be u^ed 
in word processing fHes 

• smart evaluation of 

formulae for accurate 
complex matrices 



Pocket Filer 1 28 or 64 
Database Manager 

■waiMHiement mode easy 




M L"_L.' 



With Pocket Filer 128 or 64, you can orgonize moiling lists, 
addresseSn inventories, telephone numbers, recipes ond other 
information in on easily accessible form. Use it with Pocket 
Writer 128 or 64 [or other word processors) to construct 
individually customized form letters. 

Pocket Filer 128 or 64 pockages ore fost, sophisticated and 
truly easy to use. In aadition to standord dotobose features 
they offer . . , 






use up to 255 fields per record 
(2,000 characters per record) 

sorts by up to 9 criterion con 
save 9 different sorts 

print labels in multiple 
columns 

flejfible report formattinq 
Including neoders ancf 
footers 



• optional password protection 
including limited access 
viewing or updating 

• on-screen help at oil levels 

• print from any record to any 
record 

• arithmetic and trigonometric 
functions in reports using up 
to 16 digit accurocy 



^ 







Pocket 

Writer 64 



I t¥. 



MArL ORDERS: 
^onsocfor Publishing Inc. 

500 Steetes Avenue 

Milton, Onf orio. L9T 3F7 

1-416-878-8436 

Or use ofdei cofd qX center. 



Only The 
Name Is New 



The professional^ 
full-featured software 
line from Digital Solutions 
is now called Pocket 
Software. 

Pocket Writer 128/64. 
Pocket Filer 128/64. 
Pocket Planner 128/64. 
The names are new, but 
this super software is still 
the same. 

From now on, when you 
hear the word Pocket, it 
means software thot's 
full-featured, handy and 
easy Jo use. 

Pocket Softwore at prices 
thot won't pick your 

et. 



^pock 



Serious software 
that's simple to use. 



PW 128/64 Dictionary 

□ko avDilobla ai $14.95 (U.S.} 
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Your Commodore 1 28 or 64 



You want the very best softwore you can find for your 
Commodore 128 or 64, right? 

You want integrated software — word processing, 
database and spreadsheet applicotions — ot a sensible 
price. But^ you also want top-of-the-line features. 
Well, our Pocket 128/64 software goes one better. 



With Pocket 128 or 64, you'll find oil the features you 
con imagine. -.and then some. And Pocket 128/64 is so 
easy to use, you won't even need the reference guide- 
On-screen and in memory instructions will hove you up 
and running in less than 30 minutes, even if you've never 
used a computer before. 

The price? It's as low as you'd expect for o line of 
software calfed 'Pockef '. Suggested Retail Price for the 64 
software is S39.95 (U.S.) and S49.95(U.S.l for thel28. 
Any of the 64 products may be upgroded to their 128 
version for S15. 00 (U.S.) + S3. 00 shipping and 
hondling. (AvaiJoble to registered owners from Digital 
Solutions Inc. only] 

Pocket Writer 128 or 64, Pocket Plonner 128 or 64 and 
Pocket Filer 128 or 64 . . . Solutions ot sensible prices 
from Digital Solutions Inc. 

International Si Distributor enquiries to: 

Digital 
^ Solutions 
/inc. 



30 WeriheJm Court. Unit? 
Richmond Hill, Ontario 
Canada L4B 1 B9 
telephone (416] 731-B775 



Pocket Writer 128 and 64 are now a^o//ab/e in French. 



JOIN TPUG 

The largest Commodore Users Group 

Benefit from; 

Access to library of public domain software 
for C-64, VIC 20 and PET/CBM 

Magazine (10 per year) with advice from 

Jim Butterfield 

Brad Bjomdahl 

Liz Deal 



TPUG yearly memberships; 

Regular member (attends meelingsj 
Student member (fulMimeH attends meetings) 
Associate (Canada) 
Associate (U.S.AJ 

Associate {Overseas — sea mail) 
Associate lOverseas — air maiJ) 



-$35.00 Cdn. 
-$25.00 Cdn. 

— $25.00 Gdn, 
-$25,00 U.S. 

— S30.00 Cdn. 
-$35.00 U,S. 
-$45.00 U.S. 



FOR FURTHER INFORMATION: 

Send $1.00 for an information catalogue 
{tel! us which machine you use!) 

To: TPUG INC 
DEPT. A, 

101 DUNCAN MILL RD., SUITE G7 
DON MILLS, ONTARIO 
CANADA M3B1Z3 



COMAL INFO 
If you have COMAL— 

we have information. 

BOOKS: 

• COMAL From A To 1, S6.95 

• COMAL Workbook, S6 95 

• Commodore 64 Graphics With COMAL, S14.95 

• COMAL Handbook, S18.95 

• Beginning COMAL. S22.95 

• Structured Programming With COMAL 326.95 

• Foundations With COMAL, S19.95 

• Cartridge Graphics and Sound, S9,95 

• Captafh COMAL Gets Organized. S19.95 

• Graphics Primer S19.95 

• COMAL 2.0 Packages, S19.95 

• Library of Functions and Procedures, S19-95 

OTHER: 

• COMAL TODAY Subscription, 6 issues, 514.95 

- COMAL 0.14, Cheatsheet Keyboard Overlay, S!.95 

• COMAL starter Kit (3 disks. 1 Dock), S29,95 

• 19 Different COMAL Disks only S94.05 

• Deluxe COMAL Cartridge Package, S128.95 
(includes 2 books, 2 disks, and cartridge) 

ORDER NOW: 

Call TOLL'FREE: l'8O0'3S6'5324 ext 1507 v^SA or MasterCard 
ORDERS ONLY. Questions and mformation must cafi our 
info Line: 608-222-4432. All orders prepaid only— no CO-D. 
Add S2 per book shipping, send a Sase for FREE Info 
Package or send check or money order in US Dollars to: 

COMAL USERS GROUP, U.S.A., LIMITED 

5501 Croveland Ter, Madison, Wl 53716 

TRADEMARKS Commodore 6J of Commodore Electronics tea. 
Captain COMAL of COMAL users Croup. U5.A., Ltd. 



Commodorie 

:)lm5wtterfield 



COMPUTER OlARY 



From The Guru Himself! 

The 1986 Commodore Reference Diary 

A 65 page reference section that includes: 

• All hardware specifications including 
theCl28andPC10/20 

• Useful memory locations 

• Useful programs 

• SuperCharts 

• BASIC and machine language hints 

• Hexadecimal conversion 

• Sound, video 

• and more 

The full calendar and date book includes: 

• National holidays in ten countries 

• Personal notes 

• 1987 forward planner 

• Name, address, telephone section 

Just $5.95 

(plus 500 postage and handling) 

Order Your Copy Today! 



Canada 

The Transactor 

500 Steeles Avenue 

Milton, Ontario 

L9T 3P7 



USA 

The Transactor 

277 Linwood Avenue 

Buffalo, New York 

14209 



Dealer Orders: , ,-,. 

Canada USA 

Norland Agencies MicroPace Distributing 

251 Nipissing Road 1510 North Neil Street 

Milton, Ontano Champaign. Illinois 

L9T4T7 61820 

(416)876-4774 1 600 362-9653 



Volume 7 
Issue 03 

Circulation 64,000 
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Program Listings In The Transactor 

All programs listed in The Transactor will appear as they would on your screen in Upper/Lower 
case mode- To clarify two potential character mix-ups. zeroes will appear as '0' and the letter "o" 
will of course be in lower case. Secondly, the lower case L (T) is a straight line as opposed to the 
number 1 which has an angled top. 

Many programs will contain reverse video characters that represent cursor movements, colours, 
or function keys. These will also be shown exactly as they would appear on your screen, but 
they're listed here for reference. Also remember: CTRL-q within quotes is identical to a Cursor 
Down, el al. 

Occasionally programs will contain lines that show consecutive spaces. Often the number of 
spaces you insert will not be critical to correct operation of the program. When it is. the required 
number of spaces will be shown. For example: 



print 



flushright ' - would be shown as - print '[lOspacesJflush right 



Cursor Characlera For PET / CBM / VIC / 64 



Down - 
Up 

RJghl - 

1-eft - [Lit] 

RVS - ■ 

Rvsorr- 



[nwrl 

Delete 

GearSFm 

Home 

STOP 



■ 

8 



Colour Characters For VIC / 64 



Bbck - 
While - 
Red - 
CyaD - [Cyn| 
Purple - [Pur 
Green - ■ 
Blue - ■ 
Yellow- [Yell 




[Gr3l 



Function Keys For VIC / 64 



Fl 
F2 
F3 
F4 



F5- 
F6- 
F7- 
F8- 
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Copy Copy 

My camera-ready art for page three this issue is a mixture of brain 
overspills, mainly because [ couldn't produce just one that would 
cover the entire page. With so many projects on full burn over the last 
two months (Writer s Guide, Bits Book, Q-Link/ClS, iNet, T-Shirts, 
Communications Disk, Micro Sleuth, disk ROMs, typesetter formats, 
plus others), I must admit I've been a little out of touch with the 
market outside my immediate neighborhood of magazine dealings. So 
much so that I even made some phone calls to help refresh my 
opinionatedness. And today, with all front burners on full for so long, 
my neurons aren't holding as strong a charge as usual. I suppose 
every writer has this experience at one time or another - you start to 
ramble just so you don't have to expand your type size and leading in 
order to fill a page and appear like a uninspired door-knob that can't, 
- . er, see what I mean? Ok Karl, get on with it. 

First rd like to retract a statement from page three last issue. I 
suggested there probably isn't one computer hobbyist out there 
without possession of at least one copy of a some piece of proprietory 
software that they haven't paid for. I suppose I exaggerated a little, but 
only to make a point: manufacturers need to offer more in package 
than just a program to accrue sales. By including a ''batch of goodies" 
with the software, the customer who sincerely wants the item will be 
less willing to settle for the bare-bones, unprotected version. Besides, 
getting the occasional freebie isn't the worst crime in the world. But 
large-scale distribution of a pirates de-protecting efforts is. quite 
simply, detestable. That was my main point, which brings me to my 
next. 

We've been receiving a number of letters regarding local duplication 
of Transactor Disks, Here's a few clippings: 

". . J ux)ufd like to seil Transactor Disks through our dub. . ." 
". . we fett that since the programs are considered public domoin that 
the disks couid be included in the club library. . . " 
". . . we would also like a subscription to The Transactor Disk, which 
we uxyufd make available to club members, with your permission. " 
"allow members who can show us a copy of the magazine to copy the 
disk. . . ■' 

". . . it seems lobe a nuisance to mail off for them. ./'"... the price 
doesn 't seem to be a problem. . . " 

". . .do not believe our members would be willing to purchase sub- 
scriptions at $45 even though that is a reasonable charge for 6 disks 
that save typing the programs in. . . " 

Gel the picture? Since introducing The Transactor Disk, we've re- 
ceived the same request no less than 50 times. Our policy is, ''free to 
copy, not to sell" (see bottom of opposite page). Although the disks are 
marked "(c) copyright. , .", there is no copy protection and we couldn't 
even afford any attempts at thwarting copy activity. But consider this: 
we spend a lot of time on those disks - testing, editing, commenting, 
sometimes de-bugging - Chris, Richard, and myself spend between 
one and two days to complete each. Even with the price increase, they 
still cost less than disks from many of the other magazines. And what 
little profit we take (important revenue for us) doesn't even put a dint 
in our total expenses. 



Tm not saying you shouldn't copy the programs. In fact, if you would 
like to put them into your club libraries, please do. Most club software 
libraries are split into categories. All we ask is that you "de-unify*' the 
disks into their respective categories in the true sense of a 'library ". 
Much like you can copy an article from any magazine at your local 
public library, ev^n at a nickel a page you wouldn't copy the entire 
mag - it would cost less to go buy one. Same for the disks. If the 
programs are split between two or three library entries, members can 
still obtain machine-readable versions of the programs, but the uni- 
fied collection will cost less. If someone makes the odd dupe, from the 
pages or sectors, so be it. But in the context of my second paragraph, 
our product is software with inexpensive (usually required) documen- 
tation. Alternately, we offer a magazine with an optional inexpensive 
service that can easily be justified in dollars per hour. Either way you 
look at it, wide spread duplication will only help to shorten our life as 
a supplier. Remember, we wouldn't be the first computer publication 
to become another page in Chapter U. although weVe probably the 
first to meet you half way. 

Did 1 hear someone say, "y'^u hypocrites - your SuperKit/ 1 54 1 will 
make copies of protected packages, and you're selling 1541 upgrade 
kits that make only minor changes to the original."? No? Good. 
Because once you buy a piece of software, you also buy the rights to 
personal use as you see fit. Super Kit is for making personal backups - 
handing them out is against the law, and that's not why we sell it. 
Secondly, we're not cloning disk drives - we're upgrading the operat- 
ing system that 1541 ownershaveeveryright touse. Caseinpoint:an 
upgrade ROM is available for the ontward computer of new Corvettes. 
It adds about 60 h.p. at around $10 per horse. Apparently the ROM 
contains only slight mods to the original, but owning the car means 
you have the right to install those mods. It's just like adding headers - 
they're the same at both ends, different in the middle. Nobody is 
breaking the law, but if a second manufacturer makes headers of 
identical design, room exists for a conflict. 

My last spill is open for discussion, and responses are welcome. When 
the CBM 8096 was released, Visicorp decided they would not produce 
a version of Visicalc that would access the extra 64K. 1 don't know 
who, but someone else did. The 96K version powered up with an 
incredible 70K of workspace (lOK on the 8032 version) and it was 
even offered to Visicorp free of charge! They still didn't want it, but 
that did not make it ok to give out. Now thai Visicorp has folded, what 
about Visicalc. Is it public domain? I'm sure the "Y/N" fraction 
contains many arguments here. Some would say nobody will suffer. . 
. except their existing competitors of course. What atwut other 
suppliers who may be gone, but whos software is not forgotten. And 
what about the law? Does anyone know? Personally. 1 couid go either 
way on this one. So readers, any ideas? 

There is nothing as constant as change, 1 remain 




KariJ.H.Hildon, Editor In Chief 

and I though) I wouldn't need loKnjnclilhJ& page Ihia lime huhg 
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Using "VERIFIZER" 



The Transactor's Foolproof Program Entry Method 



VERIFIZER should be run before typing in any long program from the 
pages of The Transactor. Il will let you ctieck your work line by line as 
you enter the program, and catch frustrating typing errors.'The 
VERIFIZER concept works by displaying a two-letter code for each 
program line which you can check against the corresponding code in 
the program listing. 

There are five versions of VERIFIZER here; one for PET/CBMs, VIC or 
C64, Plus 4, C128, and BI28. Enter the applicable program and RUN 
it- If you gel a dala or checksum error, re-check the program and keep 
trying until all goes well. You should SAVE the program, since you'll 
want to use it every time you enter one of our programs. Once youVe 
RUN the loader, remember to enter NEW to purge BASIC text space. 
Then turn VERIFIZER on with: 



SYS 634 to enable the PET/CBfvl version (off 
SYS 828 to enable the C64A/IC version (off 
SYS 4096 to enable the Plus 4 version (off 
SYS 3072,1 to enable the CI 28 version (off 
BANK 1 5: SYS 1024 for B 128 (off:BANK15 



SYS 637) 
SYS 831) 
SYS 4099) 
SYS 3072,0) 
SYS 1027) 



Once VERIFIZER is on. every lime you press RETURN on a program 
line a two-letter report code will appear on the lop left of the screen in 
reverse field. Note that tf^ese letters are in uppercase and will appear 
as graphics characters unless you are in upper/ lowercase mode (press 
shift/Commodore on C64/V1C), 

Note: If a report code is missing (or "--") it means we've edited ttial 
line at the last minute which changes the report code. However, this 
will only happen occasionally and usually only on REM statements. 

With VERIFIZER on, just enter the program from tlie magazine 
normaliy, checking each report code after you press RETURN on a 
line. If the code doesn't match up with the letters printed in the box 
beside the listing, you can re-check and correct the line, Ihen try 
again. If you wish, you can LIST a range of lines, then type RETURN 
over each in succession while checking the report codes as they 
appear. Once the program has been properly entered, be sure to turn 
VERIFIZER off with the SYS indicated above before you do anything 

else, 

VERIFIZER will catch transposition errors like POKE 52381,0 instead 
of POKE 53281,0, However. VERIFIZER uses a "weighted checksum 
technique" that can be fooled if you (ry hard enough; transposing two 
sets of 4 characters will produce the same report code but this should 
never happen short of deliberately (verifizer could have been de- 
signed to be more complex, but the report codes would need to be 
longer, and using it would be more trouble than checking code 
manually). VERIFIZER ignores spaces, so you may add or omit spaces 
from the listed program at will (providing you don't split up key- 
words!). Standard keyword abbreviations (like nE instead of next) will 
not affect the VERIFIZER report code. 

Technical info: VIC/C64 VERIFIZER resides in the cassette buffer, 
so if you're using a dalasette be aware that tape operations can be 
dangerous to its health. As far as compatibility with other utilities 
goes, VERIFIZER shouldn't cause any problems since it works 
through the BASIC warm-start link and jumps to the original destina- 
tion of the link after it's finished. When disabled, it restores the link to 
its original contents. 



CI 

CF 

LI 

HC 

DH 

GK 

OG 

JO 

AF 

IN 

ON 

IB 

CK 

EB 

HE 

01 

JB 

PA 

HE 

EL 

LA 

Kl 

EB 

DM 



KE 

JF 

LI 

BE 

DH 

GK 

FN 

KP 

AF 

IN 

EC 

EP 

OC 

MN 

MG 

DM 

CA 

NG 

OK 

AN 

GH 

JC 

EP 

MH 

BH 



*«*■ * 



' ': end 



PET/CBM VERIFIZER (BASIC 2,0 or 4.0) 

lOrem* data loader for' Venfizer4.0' ' ■ 
15 rem pet version 

20cs = 

30 fori = 634 to 754:read a poke i,a 

40cs = cs + a:nexti 

50: 

60 jfcsOl 5580 ttien print' '*'*•• data error 

70 rem sys 634 
80 end 
100: 

lOOOdata 76, 138, 2, 120, 173, 163, 2. 133. 144 
1Q10data173. 164, 2,133,145, 88, 96,120.165 
1020data145,201, 2,240, 16,141,164, 2.165 
1030 data 144, 141, 163, 2,169,165,133, 144. 169 
1040 dala 2,133,145, 88, 96, 85,228,165,217 
1050data201, 13,208, 62,165,167,208, 58,173 
1060 data 254, 1, 133,251, 162, 0, 134.253,189 
1070data 0. 2,168,201, 32.240, 15,230,253 
1080data165,253. 41, 3,133,254, 32,236, 2 
1090 data 198, 254, 16, 249, 232, 152, 208, 229. 165 
1100data251, 41, 15, 24,105,193,141, 0,128 
1110data165,251, 74, 74, 74, 74, 24,105.193 
1120data141, 1,128,108,163, 2,152, 24,101 
1130dala251, 133.251. 96 

VIC/C64 VERIFIZER 

10 rem* data loader for ' 'verifizer' " * 

15 rem vic/64 version 

20CS-0 

30 for i = 828 to 958:read a:poke i,a 

40cs = cs + a:next i 

50: 

60 if csO! 4755 then print' '*•**• data error '-•<- 

70 rem sys 826 

80 end 

100: 

lOOOdata 76, 74, 

1010 data 252, 141, 

1020 data 3,240, 
1030 data 251, 169, 
1040 data 3, 3. 
1050 data 0, 160, 
1060 data 32,240, 
1070 data 133, 90, 



i t 



: end 



3,165,251,141, 2, 3, 

3. 3, 96,173, 3, 3, 

17,133,252, 173, 2, 3, 

99,141. 2. 3, 169, 3, 

96,173,254, 1,133, 89, 

0, 189, 0, 2,240, 22, 

15,133, 91,200,152, 41, 

32,183, 3,198. 90, 16, 

1080data232, 208, 229, 56, 32,240,255,169, 

1090data 32,210,255,169, 18. 32,210,255, 

llOOdata 89, 41, 15. 24,105. 

1110datal65, 89, 74. 74, 74, 

1120data 32,210,255,169,146, 

11 30 dala 32,240,255,108,251, 

1140data101, 89,133, 89, 96 



97, 32,210, 

74, 24, 105, 

32,210,255, 

0, 165. 91, 



165 
201 
133 
141 
162 
201 
3 
249 
19 
165 
255 
97 
24 
24 



VIC/64 Double Verifizer Steven Walley, Sunnymead, CA 

When using ^VERIFIZER' with some TVs. the upper left corner of the 
screen is cul off, hiding the verifizer-displayed codes. DOUBLE 
VERIFIZER solves that problem by showing the two-letter verifizer 
code on botti The first and second row of the TV screen. Just run the 
below program once the regular Verifizer is activated. 



r Jtmmrmaetor 



Nov. 1986: VokVTM 7, bttM 03 





KM 


100 for ad = 679 lo 720:read da:poke ad.da:next ad 


Dl 


1140data 20,133.208,162, 0,160, 0,189 




BC 


110 sys679: print: print 


LK 


llSOdata 0, 2,201, 48,144, 7,201, 58 




Dl 


1 20 print ' doub e verif tzer activated ' : new 


GJ 


11 60 data 176, 3,232,208,242, 189, 0, 2 




GD 


130data120. 169, 180, 141, 20, 3 


DN 


1170data240, 22,201, 32,240, 15,133,210 




IN 


140data169, 2. 141, 21, 3, 88 


GJ 


11 80 data 200, 152, 41, 3,133,209, 32,113 




EN 


150data96, 162. 0,189. 0.216 


CB 


1190data 16,198.209, 16,249,232.208,229 




KG 


160data157, 40,216,232,224, 2 


CB 1 


1200data165,208. 41. 15, 24,105.193,141 




KG 


170 data 208. 245, 162, 0.189. 


PE 


1210data 0, 12,165,208, 74, 74, 74, 74 




FM 


180 data 4,157, 40, 4,232,224 


DO 


1220dala 24,105,193,141, 1, 12.108,211 




LP 


190 data 2.208.245. 76, 49.234 


BA 
BG 


1230 data 0, 165,210, 24, 101,208, 133,208 
1240 data 96 








VERIFIZER For Tape Users Tom Potts, Rowley, MA 








CI 28 VERIFIZER 


The MIowing modificalions lo (he Verlfizer loader will allow VIC and 
64 owners with Dataseltes to use the Verlfizer directly (wilhoul the 




CF 


1000 rem • data loader for verlfizer 126 


loader). After running the new loader, you'll have a special copy of the 


HA 


1010 rem • commodore c1 28 - 40 and 80 column mode 


Verlfizer program which can be loaded from tape wilhoul disrupting 


DH 


1020 cs = 


the program in memory. Make (he following additions and changes to 


HL 


1030 for 1 = 3072 to 3226; read x; pokej.x: cs = cs + x: next 


the VIC/64 VERIFIZER loader: 


CB 


1040 if CS019526 then print " checksum errod " : stop 




CP 


1 050 print ' sys 3072, 1 : rem to enab e " 


MB 30 for i = 850 to 980: read a: poke J.a 


CB 


1 060 print " sys 3072,0: rem to disable 


AL 60 if CS014821 then print "'■•***data error* **■•": end 


ME 


1070 rem 


IB 70 rem sys850 on, sys853 off 


FG 


1080 data 201. 0,208, 13.120. 165,253, 141 


— 80 delete line 


FK 


1090data 20, 3,165,254,141, 21, 3, 88 


~ 100 delete line 


MD 


nOOdata 96,120,173, 21, 3,201, 12,240 


OC lOOOdata 76, 96, 3,165,251,141, 2, 3,165 


OJ 


mOdata 17.133,254,173. 20, 3,133.253 


MO 1030data251, 169, 121,141, 2, 3,169, 3,141 


MF 


1120data169, 44,141, 20, 3,169, 12,141 


EG 1070data133, 90, 32,205, 3,198, 90, 16,247 


OM 


1130data 21. 3. 88, 96,165,240,201, 13 


BD 2000 a$= ' verifizersys850[space]'' 


El 


1140dala208, 94,165, 22,133,250,162, 


KH 2010fori = 850to980 


ON 


1150data160, 0.189, 0, 2,201, 48.144 


GL 2020 a$ = a$ + chr$(peek(il: next 


NH 


1160data 7.201, 58, 176, 3,232,208,242 


DC 2030open 1,1,1, a$: close 1 


J 


11 70 data 189, 0, 2,240, 22,201, 32,240 


IP 2040 end 


ML 


1180data 15,133,252,200,152, 41, 3.133 




DE 


1190data251, 32,147, 12,198,251, 16,249 


Now RUN, pressing PLAY and RECORD when prompted to do so {use 


DN 


1200 data 232, 208, 229, 56, 32,240,255,169 


a rewound tape for easy future access). To use the special Verifizer that 


LM 


1210 data 19. 32,210,255.169. 16, 32.210 


has just been created, first load the program you wish to verify or 


LE 


1220data255, 165,250, 41, 15, 24,105,193 


review into your computer from either tape or disk. Next insert the 


HC 


1230 data 32,210.255,165,250. 74, 74. 74 


tape created above and be sure that it is rewound. Then enter in direct 


KE 


1240data 74. 24,105,193. 32,210,255,169 


mode: OPEN 1 ;CL0SE1 . Press PLAY when prompted by the computer, 


OF 


1250data146, 32,210,255, 24, 32,240,255 


and wait while the special Verlfizer loads Into the tape buffer. Once 


NC 


1260 data 108, 253, 0, 165.252, 24. 101,250 


loaded, the screen will show FOUND VERIFIZER.SYS850. To activate, 
enter SYS 850 {not the 828 as in the original program). To de-activate, 


LP 


1270data133,250, 96 






use SYS 853. 






B128 VERIFIZER Elizabeth Deal, Malvern, PA 


If you are going to use tape lo SAVE a program, you must de-aclivale 




(SYS 853) since VERIFIZER moves some of the internal pointers used 


1 remsave'"@0:verifizerb128".S 


during a SAVE operation. Attempting a SAVE without turning off 


10 rem* data loader for 'verlfizer b1 28" • 


VERIFIZER first will usually result in a crash. If you wish to use 


20 cs = 


VERIFIZER again after using the tape, you'll have to reload it with the 


30 bank 15:fori = 102410 1163:reada:poke i,a 


OPENhCLOSEl commands. 


40cs = cs + a:nexti 




50 if csOl 6628 then print " • ' data error • • " : end 




60 rem bank 15: sys 1024 


Plus 4 VERIFIZER 


70 end 








lOOOdata 76, 14, 4.165.251.141,130, 2,165,252 
1010data141, 131, 2, 96,173,130, 2,201, 39,240 




Nl 


1 000 rem • data loader for - verlfizer + 4 - 




PM 


1 01 rem • con^modore plus/4 version 


1020da1a 17,133.251.173,131. 2.133.252,169, 39 




EE 


1 020 graphic 1 : scnclr: graphic 0: rem make room for code 


1030dala141. 130, 2.169, 4,141,131, 2, 96,165 




NH 


1030 cs-0 


1040dala 1, 72.162, 1,134. 1.202,165, 27,133 




Jl 


1040 forj = 4096 to 4216: read x: pokei,x: ch = ch + x: next 


1050data233, 32,118, 4,234,177,136,240, 22,201 




AP 


1050 it ch<>13146 then print "checksum error": stop 


lOeOdata 32,240, 15.133,235,232,138, 41, 3,133 




NP 


1060 print ^sys4096: rem toenabe^ 


1070data234, 32.110. 4,198,234. 16,249,200,208 




JC 


1070 print "sys4099: rem to disable" 


1080data230, 165.233, 41, 15. 24,105,193,141, 




ID 


1080 end 


1090 data 208, 165,233, 74, 74, 74, 74, 24,105,193 




PL 


lOQOdata 76, 14, 16,165,211,141, 2, 3 


1100data141, 1.208, 24,104,133, 1,108,251, 




CA 


llOOdata 165,212, 141, 3, 3, 96,173, 3 


11 10 data 165, 235, 24.101,233,133,233, 96,165,136 




OD 


inOdata 3,201, 16,240, 17,133,212,173 


1120data164, 137. 133, 133,132. 134, 32, 38,186, 24 




LP 


1120data 2, 3,133,211,169, 39,141, 2 


1130data 32, 78.141,165,133. 56.229,136,168, 96 




EK 


1130dala 3,169, 16,141. 3. 3, 96,165 


11 40 data 170, 170. 170, 170 



1T>*1tanioctar 
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Bits and Pieces 



Got an interesting programming tip. short routine, or an unknown 
bit of Commodore trivia? Send it in - if we use it in the Bits & Pieces 

column, we 'II credit you in the column and send you a free one- 
year's subscription to The Transactor 



C- 128 Program Entry Tips 



David J* Tcykowski 
Baldwinsvllle, NY 



Here are some tips for C-128 users who enler magazine program 
listings using line verification utilities such as Transactor's VERIFI- 
ZER. These tips can help make program entry less painful and 
time-consuming. 

The first is almost too easy - if you are in eighty-column mode 
simply type the command FAST. This will reduce the noticeable 
delay from the lime you hit enter until the cursor returns or the 
next line number appears (i( you are using automatic line number- 

ing)- 

The next tips concern the use of the function keys- The placement 
of the C-I28^s function keys just above the numeric keypad and 
the programmabilily of the keys can can greatly ease the entry of 
programs. For example, when entering BASIC loaders which 
require many lines of DATA statements, re-define Fl as 'DATA' 
and F2 as V; then it will not be necessary for your hand to leave the 
area of the keypad at all. 

It is sometimes necessary to "go back'" and re-check the verifica- 
tion codes of parts or all of a program. Changing the definition of 
F7 to eliminate (he CHR$(13) will make listing ranges of lines 
easier by eliminating the need to type in the word LIST 

Ustly, you can automate the entire process even more by creating 
a disk just for program entry. Set up the disk to auto-boot the 
verification program (VERIFIZER) and add the function key re- 
definitions to the program itself. Then when then disk is booted 
you will be set for fast, efficient and accurate entry of programs. 



Stop Amiga Disk-Deatti 

One of the most common causes of Amiga disk failure is pressing 
the eject button while the drive light is on. This can mess up 
important pointers on the disk, making it totally unreadable. 
Ejecting a disk at the wrong time is easy to do, especially since 
versions 1.0 And LI of the operating system often put up disk- 
change requesters before the drive light has gone out - oblige the 
prompt speedily and your reward can be a zapped disk, {This has 
been corrected in Kickstart 1.2.) 

The general rule, then, is never press the drive eject button when 
the red light is on. Well, almost never. If the system crashes with 



the light on and it looks like it won't be coming back up with a 
"guru meditation * ' or by re-booting on its own, you should eject 
the disk before you re-boot with Amiga/Amiga/CTRL A forced 
re-boot seems lo zap the disk on occasion. 

If the above advice comes too late and you already have a bad disk 
in your collection, you may be able lo recover it with "DiskEd", a 
direct-access disk editor that comes with the developer's package 
for the Amiga. DiskEd requires thai you understand the format of 
Amiga's file structure (Explained in an article next issue), but an 
automatic disk-fixer called DiskDoclor is on the new version L2 
software support disk. Just say diskdoctor dfO: {or dfl:), and the 
program does its best to automatically fix up a bad disk the best it 
can. Having a disk restoring program on hand may save you a lot 
of re-typing time. 



Easy PAL to CBM Source Conversion 

A CBM assembler format source file is just a sequential text file 
with no line numbers, while the PAL assembler uses a format 
identical to a BASIC prc^ram. A surprisingly easy way to create a 
CBM-format file on disk from a PAL file in memoiy involves just 
one POKE to list the program without line numbers. On the C-64, 
the entire conversion process can be accomplished like this: 

open 1,8,2,"filename.s,w":cmd 1: poke 22,35: list 
(then poke 22.25 to return to normal listing mode) 

On PET machines, the POKE is 19,32; and 19,22 to get back to 
normal. 



Micro STP 



Frank DiGioia, Stone Mountain, Ga 



Chris Zamara published a nifty ML program in Transactor Vol. 5, 
Issue 6 called STP. Later, in volume 6, issue 4, Jack Weaver 
submitted a 1 line BASIC program to Bits & Pieces which worked 
similarly to Chrises STP. Well, I couldn^t resist adding my two cent's 
worth. Here is a one-line BASIC program that I wrote which has all 
the power of Chris's original program: 

open 2,8.2. " file " : poke 781 ,2: poke 81 2,73: sys 65478 

When you use it to execute a sequential file of BASIC direct mode 

commands, it will execute all the commands in the file and then 
attempt to execute blank lines until you hit STOP/RESTORE. 



irMnQmocior 
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When used to merge or lokenize a sequential program listing from 
disk, it will perform the desired function and then terminate at end 
of file with a syntax error (caused by the "READY." produced by 
LIST). Not bad for a BASIC one-liner 

(Not bad indeed^ WhaVs more, you can go one step further and 
execute any series of commands from a sequential file without 
having to RESTXJRE. Just end the command file with CL0SE2:P0' 
KE8!2,47:SYS65484, and the sequence will terminate properly. 
closing the file and returning the system to normal! Other than the 
fact that it displays the lines being entered, the "nifty" STP program 
has nothing on this one! -CZ) 



Border Cross 



Steve Lofton, Centralia, IL 



Computing around one day, I was wishing, "It sure would be nice if 
I could afford a Transactor subscription. But they're BIG league. I 
said to myself/' My hopes of winning a Bits & Pieces scholarship 

crashed. Then my Commodore 64 whispered tb me. 

'*Human unit, don't feel chr$(17) and chr$(31), send in that cute 
IRQ routine you were working on yesterday " 

'*Okay'\ I said, stroking her keys, "I'll give it a try, Connie 
Commodore." 

So here it is. This program will scroll a multicolour bar in the 
border whenever a key is being held down. This adds new fun 
when you cursor to and fro. 

10 rem border cross - steve loflon 
20 lor i = 491 52 to 491 73: reada: pokei.a: next 
30dala169. 11. 141. 143. 2, 169. 192, 141 
40 data 144. 2, 96.160, 0,206. 32,208 
50 data 200, 208,250. 76, 72,235 



$D530 
$D533 
$D535 
$D538 
$D53A 
$D53D 
$D53F 



LDA $0101 
BCC $0538 
LDA $0102 
BEQ $D53F 
CMP$FED5 
BNE $D572 
TXA 



Load DOS type for drive # 

Branch to $D538 

Load DOS type for drive # 1 

If DOS type is 00 branch to write job 

If not compare to type 65 

If neither branch to error routine 

Continue write job 



Some C-128 Tips Andy Hochheimer, Wallaceburg, Ont. 

I found that you can enter the 128's Machine Language Monitor by 
holding down the RUN/STOP key at power-up, 

IVe also found that some 80-column display programs don't take 
advantage of the FAST command. They instruct you lo insert the 
disk, then power up with the 40/80 key down. Instead try this; 
Depress the 40/80 display key, power up, type FAST, then insert 
the program disk and enter the command BOOT. The program will 
boot just as if you had the disk in as they instruct. Some programs 
really benefit from this. 



Disabling The C-128 RUN Key 



George Leotti 
Glenolden, PA 



Haveyoul28'erseverpressedSH[FT-RUN/STOPby mistake, and 
lost what was in memory? Here is my solution to this mis-key: 



poke 4104,0 
poke 41 04,9 



disables RUN key 
enables RUN key 



This works by changing the number of characters in the RUN key's 
definition to zero, effectively disabling the key. 

For more on defining the RUN and HELP keys, see last issue ^ Bits 
<fi Pieces section. -CZ 



Disk Protection 



Ric O'NeiU, Calgary, AB 



C-64 Upper /Lowercase Timescroll 



Jimmy Watteni, 
Sussex, NB 



Hiding on track 18. sector 00 of disks formatted on 1541 drives are 
many important byte values used by DOS, Manipulating these 
values can have a dramatic effect on how DOS interprets the data 
read from the disk. 

One particular byte of interest is the third byte on sector 00. This 
byte indicates to DOS what type of drive was used to format the 
disk. DOS uses this byte to determine if it can write lo the disk. If it 
finds an illegal value for the DOS type it will not allow the drive to 
write to the disk. This so-called "soft protect" has been used by 
some lo prevent writing to a disk. This is done by changing the 
value of byte three to almost any value other than 65. It seems to 
be an accepted fact that the 1541 disk drive cannot write to a disk 
formatted with any DOS type other than 65. 

This is not correct. Disassembly of the code thai checks the DOS 
type reveals that a DOS type of 00 can be written to also. DOS 
evidently checks for a DOS type of 00 first and if found continues 
the write job. Here's the section of code: 



Here is a neat ^'tirne scroll" for the C-64. Type it in and RUN it. 
making sure to enter the correct number of spaces. The more text 
on the screen, the better the result. 



10print"H"'-['^^®P^^^^]P^'^^"BI'"-["^^sp^^^s]9'^to 10 

20 rem each ' ; ' is followed by 1 6 spaces 

Try changing the number of spaces to get different effects. Pressing 
a key changes things too- To really notice what is happening, add 
the following line: 

5fori = 1 to 999: print chr$(1 69);: next 



Free C-128 CP/M Manual 



Paul Reeves, 
Hamilton, Ont. 



I have stumbled across a very helpful piece of information which 

will help all of you who hate spending 20-30 dollars on computer 
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manuals. !f there was only a way lo make one yourself- . , Now 
there is; to get a "FREE^' 40 page CP/M manual for Jhe C-128. put 
the CP/M System Disk in drive A and type the following: 

PoraC-128andal541: 

{A>) pip 1st: = help. hip 

For a C-128 and a 1571: 

(A>) pipe: = a:help-- 
(A>) help [extracl] 
(A>) 1st: = help-dal 

With the 1541 , the manual will have a few pages of junk at first but 
after (hat all will be fine. When using the 1571 version, it will ask 
you to insert disk E into drive A; when it does, insert a blank disk 
formatted double-sided. You need to do this because all the 
information will not fit on one side (the Help.HLP file is 83K)- 



certain exact rules. Hence if two series start with the same seed. 
they will be identical through their entire length- 



Non- Random Surprises 



Type this into your C64 and run it: 



Harold Anderson, 
Oakville, Ont. 



10n = rnd(0)*1024 

20 poke 1024 + n,24: poke55296 + nJ 

30 goto 10 

You would expect to have the whole screen hiled in a random 
manner with white X's. Surprisingly, what you will find is that 3/4 
of the locations are never filled and you end up with a pattern of 
vertical stripes on the screen. Clearly, the number returned by 
RND(O) is not very random. H you change RND(O) to RND(l) the 
problem disappears. 

1 investigated this at some length and found that the number 
returned by RND(0) is of the form: 

RND(0)= Ax 1/256 + 8x1/(256x256x256) 
Where A is any integer to 255 
and B is any integer to 63 

This means (hat there are only 256 x 64 (16384) different values of 
RND(0) Also notice that the second term in the above formula is 
much smaller than the first. The result of this fact is that the 
possible values of RND(0) are grouped in tight bundles around the 
values indicated by the first term of the formula. This bunching 
explains why the screen is not filled evenly in the test program. 

The values of A and B in the formula are apparently derived from 
the lime, since messing with the length of time between successive 
calls for RND(O) seems to affect the randomness even further. 

The RND function on the C64 should be regarded as follows: A call 
for RND(0) gives one of 16384 possible starting "seed" values for 
16384 possible random series. A call for RND(1) gives a value 
derived from the last value found by the RND (unction. While 
RND(I) returns values which are truly randomly spaced, each 
successive value is derived from the previous value according to 



Watchacallit? 



J.G, Krol, Anaheim, CA 



The symbol • is widely used in computer programming, as to 
indicate multiplication. The name of • is not "star". It is called 
asterisk. 

The symbol / is also widely used, as to indicate division or optional 
selection. The name of / is not "slash". It has two different names 
depending on its usage. When / is used mathematically to indicate 
division, like 4/5 = 0.8. it is called solidus. When / is used to 
indicate optional selection, like his/her, left/right, or and/or. it is 
called uirgule. 

A unit of time that is 1/60 (that's a solidus) of a second is widely 
used within Commodore computers. It is called in Commodore 
documentation a '^jiffy". That is an unnecessary neologism. An- 
cient Babylonian astronomers divided an hour of time or a degree 
of angle into 60 equal parts, each called a minute (MIN-ute), which 
name is cognate to minute (my-NOOT) meaning very small. For a 
smaller unit they divided a minute into 60 equal parts. That took a 
second division by 60, so they called the unit a second. For a yet 
smaller unit, they divided a second into 60 equal parts. That took a 
third division by 60. so they called the unit a third. This "sexagesi- 
mar" system is still widely used 5000 years later for measuring 
time and angle. It can be extended to "lourlh", "fifth", and so on as 
needed. Thus a so-called "jiffy" is actually a ihird. except that the 
news hasn't reached Commodore's lech writers yet, not after 5000 
years, which shows just how slow the mail is these days. 

Mr. Krol is right - / looked it all up in a dictionary. But please, 
programmer's jargon is confusing enough. You want to start using 
Ancient Babylonian? -CZ 



Quicker Assembly on the Amiga 



Norman MacEVonaid 
Medicine Hat, Alberta 



While using the Amiga Assembler I was disappointed at the 
amount of time it took to assemble a short program when some of 
the 'include' files were included in my source file. ! have come up 
with a simple solution to the problem that cut the assembler's 
workspace and the assembly time in half. Here is what I did: I 
wished to use some of the Intuition structures for setting up a 
screen and window, so I made a source file as follows: 

include ' exec/types. i' 
include 'intuition/intuitJon.i' 

You may wish to add other include files than the ones I used, but 
be sure to have 'exec/types.i' as the first include file. When my 
source file was set up, I assembled the source file above with the 
following lines from CLI: 

assem :infile -c w250000 -i :include -e :outfile.equ 

This assembled an "EQU file" of all symbols that were present in 
the source file. This "EQU file" may then be used in your source 
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and will perform exactly as (he include files would. You may even 
wish to examine the file and trim some more fat off it by deleting 
the definitions that you do not use. 

The advantages of doing this is a large decrease in the assembly 
time and less workspace is required fo assemble a program. The 
main disadvantages lo doing this is that you do not have access to 
the macros defined in Ihe Include files . Another disadvantage is 
Ihat if you include two of these "EQU files" in an assembly and 
they contain duplicate symbols, you will end up with some errors 
during assembly. One solution to this problem is to change all the 
EQUs in the EQU file to SETs; this will allow the symbols to be 
defined more than once. 

This is the fastest method of decreasing assembly time on the 
Amiga that I have found. I hope it will be of use to anyone doing 
assembly work on the Amiga. 

A further increase in speed can be obtained by making an ''in- 
clude" directory in the RAM-disk Cmakedir ram .include"), copy- 
ing the include (or EQU) files that you need to yam:inclade", and 
using "raminclude" instead of *':include" as the '-/"" assembly 
option. If you hooe expansion RAM beyond the built-in 51 2K. you 
can put everything in the RAM disk (source, libraries, include files, 
object, etc.) and get super-fast assembles. The same applies for 
compiling. Even if you don ? have extra RAM (a 2 Meg box is nice, 
but expensive), try squeezing as much as possible into RAM before 
assembling. You 'd be surprised at how much faster things go when 
the system doesn 't spend its lime waiting for the read/write head to 
seek. -CZ 



Changing Baud Rates For The 
C-64 with 1650/6240 Modems 



James Shelley 
South Bendf In. 



After reading Tony Valeri's article in Volume 6 Issue 2 and the tip 
from Daniel Bingamon on modem speed-up to 450 baud, 1 
thought a different approach might be of interest. Several of my 
friends and I have been working on a terminal program to use with 
our BBS. We found it desirable to change the baud rate in our 
terminalsand BBS while on-line- As the 1650/6240 modems can't 
communicate at 450 baud while set at 300, a way was needed to 
change the baud rate and not re-run Ihe terminal program or BBS 
or close and re-open the RS-232 file. We use the four lines of 
BASIC below. It will change the baud rate on the terminal and the 
BBS without any ill effects. This method has been tested to 1200 
bps with good results. This does not change any parity, word 
length, etc. When the user logs off the BBS, a GOSUB in the log-off 
routine passes through these lines with the variable 'baud" set to 
300, and the BBS is back to 300, ready for the next call. 

10 open 5,2.3,chr$(6) + chr$(0) 

20: 

30 rem - more pgm. lines - 

40: 

50 input' baud rate > ";baud 

60a = int(1022730/baud/2-100):c = int(1022730/baud) 

70 d = int(a/256): e = a-d*256: poke 661 ,e: poke 662,d 

80d = int{c/256): e = c-d'256: poke665.e: poke666.d 



If the programmer's reference guide is consulted, it is obvious how 
the memory locations are used. Locations $0295 - $0296 are "f^- 
232 non-standard BPS", Locations $0299 - $029A are "RS-232 
Baud rate". With about 40-50 terminal programs, along with the 
programmer's reference guide and The Transactor, we came up 
with this bit of painless BASIC code. \ hope it helps ease the pain of 
those who have had a chance to try and swallow the Programmer's 
Reference Guide's advice on Baud change- 



Borrowing Money? 

After those fun programs, here's something that's actually useful. 
Given the rate of interest of a loan and number of payments, it 
prints a table with monthly payments from $10 to $1000 per 
month in one column, and the amount of the loan in another With 
this table at your disposal, you can find out how much you want to 
borrow based on what you are willing to pay each month. Alterna- 
tively, you can look along the right-hand column until you find 
out how much you need to borrow, then look across to the left 
column to see what it'll cost you for each payment. So, if you're 
buying a new car, you can scan from Honda up to Porsche until 
you see what you can afford. 

The program formats the numbers so that the columns line up at 
the decimal point regardless of the values. As listed, it prints table 
to the screen - change the *3' in line 120 to '4' to get a print-out. 
The payments on the left side go from $10 to $1000 in steps of $10 

- you can change this with Ihe for-next loop in line 200 



PD 

AD 
DK 
CJ 

DD 

CO 
00 
JF 
OF 
CD 
CM 
BG 
MN 
CM 
KA 
NK 
AF 

LL 



100 rem** loan principal - cz '86 «• 
110s$="[13spacesl":l = 10 
120 open 1,3: rem 3 = screen. 4 = printer 
1 30 input - annual interest (%)[4 spcs] 1 2 

[4 crsr lefts] ' lai 
1 40 input ' number of payments[5 spcs]48 

[4 crsr lefts] ' ;n 
1 50 i = ai/1200:rem monthly interest 
1 60 print#1 ,chr$(1 3): rem blank lines 
170 print#1," interest = 'ai-% , # payments^^ "n 
1 80 printffl , ■ payment " , ' amount of loan " 
190; 

200 for pv = 1 to 1 000 step 1 
210 rem compute amount of loan 
220 p = pv*(1-(1+i)t{-n})/i 
230 rem format amount field 
240 p$ = right$(s$ + str${int(p' 1 GO + .5))J) 
250 print#1 ,pv,left$(p$.len(p$)-2) " . " right$(p$.2) 
260 next pv 
270print#1;close1 



Thtt iranvQctor 
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Letters 



Column For Machine Language Sub-Routines?: 1 think that 
it is fair to say that The Transactor caters somewhat to the machine 
language programmer. How about a column devoted to machine 
language subroutines such as division, mulfiplicatton, base con- 
versions, memory moves, etc. Published routines could be divided 
into two calagories: 

1) The shortest - for programmers trying to cram as much into a 

small place as possible. 

2) The fastest - measured in machine cycles, for the programmer 

who needs blinding speed. 

Any routine could be updated if it's faster or shorter than its 
predecessor. The result of all of this would be a fantastic library of 
subroutines that would be useful to any ML programmer. Who 
knows, these routines could even be compiled into a book at a 
future time! There are plenty of clever ML programmers out there 
sitting on hundreds of useful routines - why re-invent the wheel? 

Rick Nash, Millersburg, Ohio 

Sounds interesting enough. At the moment we tend to include these 
in the Bits ond Pieces section - perhaps a sub-section of Bits could 
be used to host your idea. Of course it all depends on what kind of 
moil we receive, so. starting now. if we get enough fast and short 
MLs, we'll group >m like you soy. Same deal as Bits - free 
subscriptions for those published. Thanks for the input! 



New Teslamenl Available On 1541 Disk Format: Once in a 
while. / receiue a telephone call or letter that makes my day. Today 
was such a day. Randall J. Bernard in Arizona called to thank us 
for running his letter with regards to the help he required to key in 
the New Testament (see Volume 7, Issue 01). He said that he now 
has the entire New Testament on four diskettes and has 60 people 
working on keying in the Old Testament. All that was still required 
was final editing of the New Testament and waiting for the keying 
in of the Old Testament to be completed by all the people who 
volunteered. He was overwhelmed by the response generated by 
his single letter. In truth, it also overwhelmed me. 

According to Randall, the final editing stage would be the most 
time consuming thing to come. One suggestion was to ask the help 
of a few Bible study groups to check for errors and omissions. If 
anything, this would ensure an accurate transcription of the Testa- 
menl. Randall asked if I could mention that anyone who wanted 
the New Testament on disk could have it for a phone call. Now, I 
don ^ know about you but I feel thai Randall has already put 
enough into this venture. Between the time and effort that he has 
already expended, and the additional lime and effort hvm his 
volunteers. I feel that it would be unjust to expect Randall to pay for 
all the expenses. Randall mentioned to me. though, that it would 
be morally wrong to charge anyone for the Bible. In this respect f 
completely agree. 

A nice way around this problem could be that anyone who wants 
the New Testament, ond later the Old Testament, on diskette. 



should supply Randall with an equal number of diskettes (4 for the 
New and approximately 10 for the Old) plus return postage. For 
people outside of the US, remember that only US postage is good in 
the USA. Ask your post office for help. They will gladly oblige. One 
additional thing to consider: Randall will have to pay for mailers to 
mail your diskettes. Any small amount that you could send 
towards the cost of the mailers would surely be appreciated. To 
contact Ran da II: 

RandollJ. Bernard 
Box 630 

Morenci, Arizona, 85540 
(602) 865-3550 

One final thought. Many different religious backgrounds make up 
the world. As such, I feel that RandalTs efforts should only be the 
beginning. It would be beneficial for so many people to also have 
English translations on disk for the Torah. Talmud, Koran and 
other religious scriptures. If anyone would like to begin efforts 
similar to that of Randall, please drop us a letter. If you are fully 
willing to expend the effort, we will be more than willing to spread 
the word. Richard Evers 



Flexible Vector Problem: Murphy's law has intervened in my 
efforts to use your Flexible Vector program (Transactor Volume 6 
issue 02 page 64). 

Actually this same law has a corollary originated by Theophilus 
Cole during the last century and it has become quite well known in 
some circles as Coles Law which, with the spaces removed repre- 
sents a statement much more palatable than Murphy's law. even 
though it has the same meaning. 

Although 1 have copied the code with due vigilance and some 
attention to detail, I am unable to obtain the results expected. The 
code assembles well with PAL and responds to SYS by placing the 
40-digit message on the top line. The difficulty is with the non- 
erasability which doesn't exist in my rendition of the program. 
Scrolling North erases lines, ultimately including the top-line 
message. Run -Stop /Restore has the same effect. 

As an earnest novice at assembly language, I would greatly 
appreciate your advice in pointing to the error I must have made 
which prevents the non-erasure option from working. 



BobTischer, Starkville, MS 

a corrected version of the 'flexible Vector Management' 
. The problems you encountered were not your fault. At 
Chris forgot one important fact of life with the 64; the older 
of the 64 had problems with colour and screen memory. 

410-420 will solve this problem. Colour and screen 

are both update^during each interrupt to display the 

in white at the top of the screen. 



Below is 

program 
the time, 
versions 
Line *!s 
memory 
message 



ifwlronMiCiDr 



io 
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1 00 rem save 'OMrq message", 8 

110 rem **chriszamara- volume 6 issue 02 page 64 

120: 

1 30 sys 700 

1 40 .opt 00 

150* 

160; 

170irqvec 

180; 

190 ;•* initialization routine " 



ScOOO 



$0314 



200 


sei 




;disable interrupts 


210 


Ida 


#<newirq 


;low byte of destination address 


220 


sta 


irqvec 


;irq vector low 


230 


Ida 


#>newirq 


;hi byte of destination address 


240 


sta 


irqvec + 1 


;irq vector hi 


250 


cli 




;enable interrupts 


260 


rts 




;back 10 the ca ing prg or basic 


270; 








280 ;•• new irq routine " 




290 newirq 


= 


• 




300 


jsr 


dispin 


;do disp routine 


310 


jmp 


$ea31 


;norma irqdest 


320; 








330;** irq vector- 


driven routine 


#* 


340 ;displays message on top sci 


rn ine 


350 displin 


^ 


« 




360 


Idx 


#39 


;message = 40 char. (0-39) 


370; 








380 sfil 


= 


« 




390 


Ida 


message,x 


;next char from message 


400 


sta 


$0400, X 


;store in next scr mem byte 


410 


Ida 


#1 


;•- char colour while •* 


420 


sta 


$d800,x 


;*" store it in colour memory « + 


430 


dex 




;doall40 


440 


bpl 


sfi 


;byte#Oisthelaslone 


450 


rts 






460; 








470 message ,asc 


"012345678S 


101 2345678901 234567890 




123456789" 





G-Link Info: 1 think I want a G-Link InlerJace, as described in the May, 
1986 Transactor but need more information. 

My purpose is to connect a C-64 compuler to an MSD SD-2 dual disk 
drive, using the parallel IEEE port to shorten disk access lime. Questions 
are: 

1 . Does the G-Link connect to theC-64 expansion for parallel operation? 

2. If 50, what speed advantage can 1 expect? 

3. What additional cable must I supply? 

A. Is necessary software included? (The article stated complete transpar- 
ency.) 

5. Has the G-Link been used with the MSD drive with success? Just what 
can 1 expect? 

Wiilard E. Wright, Bellevue, Washington 

The G-Link lEEE-488 interface connects to the 064's cartridge port to 
provide true, trgnsparent IEEE-488 bus access. The only extra that you 
will need to make use of our interface is a single Pel to IEEE cable. You 
can expect a data transfer rate increase, in relation to a normal 1 541, in 
the area of 50 to 650 percent, depending on the drive used. The G-Link 
has been used with the MSD drives with quite a degree of success. 



Recently. I wrote on in-depth article about the G-Link IEEE- 
488 interface to run in this issue. Unfortunately, it was 
decided that our reading audience contained too few peopie 
who ufould benefit from this article. I can honestly state that 
the decision to cut my article really hurt. 

To make amends to everyone who would have liked to learn 
a bit more about the G-Link. we are offering it to you for the 
price of a letter, phone call or visit to our office (we'll also be 
including it with future G-Link orders). If you are at all 
interested in the inner workings of the G-Link, or just would 
like to learn a bit more about the IEEE-488 bus. then drop us 
a line. It would be nice to find that my efforts were not 
wasted. 



The SID Chip: Does It ReaUy Exi«t? 

A long and frustrating story made as brief as possible: 

10/4/85 - 1 sent a money order for $28.00 to Commodore 
Business Machines, C-2659, 1200 Wilson Dr., West Chester, 
PA 19380 to cover purchase and shipping of 1 6581 SID 
chip. pn906112-OK 
Result; 6 weeks later, no chip, 

C. 1 1 /1 5/85 - 1 send a letter inquiring about the status of the 
above order. 
Result: nothing. 

C. 1 2/ 1 5/85 - Another letter amplifying first. 
Result: silence. 

1/31/86- I send tracer to Postal Service on money order 
Result: money order was cashed by Commodore Business 
Machines 1 1 /8/85. Status of chip: nowhere to be found, 

I am sending this letter to Commodore and also several 
magazines that serve Commodore users because I am hop- 
ing that if 1 can't get a response out of CBM. I can at least air 
my complaint in public. 

Calling (215) 436-4200 is a waste of time. The phone is 
almost always busy and when it rings, no one answers. 

This particular part cannot be purchased from any third 
party that I know of, 1 can almost live without sound but 
some software uses the random number generator in voice 

3. 

Roy M.Randall 

6032 Edsall Road '203 

Alexandria, Virginia 22304 

What can I say? Obviously, your order went missing and 
nobody has been designated to trace it back. I know for a 
fact that quite a few people at Commodore read The Trans- 
actor. Perhaps somebody from CBM will contact Roy and 
help straighten this out. If all else fails, try dialing (215) 431- 
9100. This number at 1200 Wilson Drive, West Chester does 
work and is usually not busy. 



Th# TranKBctor 
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Transactor Disk Directorytions: I jusl received the disk for ihe SuperPET. but whether they still stock programs may be 
Volume 5, Issues 1--3. When 1 put the diskette in my disk drive. 1 another matter. 
write on my computer: 



LOAD " • \8 

and 

LOAD "'",8,1 

Then when 1 write RUN the computer comes back to READY. 
When i UST, I gel. . , 

1 REM VOLUME 5 ISSUE 1 

READY, 

Please Help! What is the problem? My computer is a Commodore 
C-64. It is not the first time that I LOAD a diskette. Could it be that 
the program is not written on the diskette. I am waiting for your 
answer. 

Roger Laplante, Chaleauguay. Quebec 

There are 118 directory entries on that particular diskette. Of these 
entries. 115 are usable programs for some type of Commodore 
computer. Of these programs, many are Bits and Pieces items, 
others are simply to be Loaded and Run, then the balance are 
source code for the concepts covered in the related issue. You really 
need to read each issue before attempting to use the programs in 
such an elementary manner. The program that you Loaded was 
the first program on disk. However, it is not really a program but 
rather a marker that merely acts as a header to the files that come 
after it. If you were to look at the directory, you would have noticed 
that the filename listed is the Volume and Issue number covered on 
that portion of the disk. If you were to look through the directory 
even further, you would find that similar markers exist for the start 
of entries for Volume 5 Issue 02 and Issue 03. 

There was a second reason for saving this marker as the first entry 
in the directory: since it serves no other purpose it can be scratched 
and replaced by some other more useful program that you would 
rather have as the first program in the directory. Using LOAD " • " 
would then give you access to your "favourite'' program without 
entering the entire filename. 



Verifizer for the C128: I couldn't get the C128 version of 
verifizer going. Is it me or you? I double double checked every- 
thing twice but I shil could not get it to work. 1 finally disassembled 
it and found that it starts with a branch, (s that right? 

Mike iafrate, Parkersburg, WV 

Verifizer for the C128 works as listed - to moke sure. 1 keyed it in 
verbatim from the pages. Remember, you must be in 40 column 
mode. To activate. "SYS3072, 1 " will do the trick (actually, any- 
thingfrom 1 -255 will work as the parameter after the comma). To 

de-activate, SYS3072.0 does it. ! have noticed one problem, 
though. SYS3072,0 does not always do it on the first shot. Twice in 
a row always makes sure that it is turned off. 

The branch at the beginning of the code is correct. The CI 28 allows 
passing of the accumulator, x and y registers plus status register via 
the SYS call The code begins with - BNE INSTALL - In simple 
terms, if the accumulator is greater than zero then activate the 
routine else de-activate. A little bit simpler than the 64. 



Disk Un- Assembler Once Again: Thanks to Transactor and J. 
Lothian for the Disk Un-Assembler for the Commodore 64 in The 
Transactor (Volume 6 issue 04). Thanks also to John R, Menke for 
his letter in The Transactor (Volume 6 Issue 06). 

The program of Mr. Lothian and letter of Mr. Menke both contain 
small errors. They both recommend adding line 61: 

61 MD(36)-0:MD(44) = 

This cannot be done as The arrays are first dimensioned in line 1 20, 
and values are read into the array in line 130. 

1 agree with Mr. Menke that BIT must be converted to BYTE with 
the Commodore assembler. He is incorrect, however, when he 
says; 



Super Empty SuperPET: We bought a SuperPET last fall, which 
helps us in our office. We do not have any programs to go with it, 
so we have to create every program for use in the office. 

Is it possible to get from you or some other people any programs 
such as: inventory, mailing list and programs for office use? 

Bruno Cote, SO Leroux *104, Granby, Quebec, J2J-IS1 

There are hundreds of programs available for the SuperPET. The 
trick is to find them. In my own personal collection 1 have many of 
the word processors, spread sheet programs, data base packages, 
accounting systems and such that have appeared in past. The 
trouble is, passing them about gratis is not too kosher. My sugges- 
tion is to locate a copy of the 'Commodore Software Encyclopedia ' 
by Sam 's Books. It lists and describes many of the packages written 
for all of the Commodore computers plus provides addresses for 
the suppliers. A few good company names to remember in your 
quest is Batteries Included, BMB Compuscience, BPI !\4icro- 
Systems. Handle Software. ProLine Software. andSoftwerx. These 
are but a few of the good software manufacturers and suppliers for 



'1 note that lines 2020-2060 are never accessed in the un- 
assembler, which is a shame because they would signal that a BIT 
operation was converted to a .BYTE, Also, lines 310-360 in the 
program are excess baggage, although it would be nicer if that 
weren't the case." 

The simple answer to the BIT to .BYTE problem is DONT ADD 
LINE 61 . The best solution is to change line 1430 and line 2050. 

1430 if n>10 the on(n-10}gosub 1950, 1980,2010,2040 

In line 2050, reduce the (8 spaces) to (1 space) and as Mr. Menke 
mentioned in line 1480, be sure to include a space between .BYTE 
and $ in line 2050 also. 

With these modifications, you can un-assemble using EITHER BIT 
or ,BYTE and if (BIT to .BYTE) is selected in lines 330-360, the 
program will signal that a BIT operation was converted to .BYTE. 
The MD(36)- 14 and MD(44)::r 14 in line 360 accomplishes this in 
line 1430, which accesses line 2040 to signal the change. Any 
other .BYTE directives are listed normally. 

Patrick P, Malloy, Milwaukee, Wl 
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Super Kit Users Notes: We have received quite a few letters and 
phone calls from people who have bought SuperKit/1541 through 
the magazine. It seems a few people have had problems getting 
Super Kit to duplicate itself as stated in the manual. Well, according 
to the people at Prism, SuperKit is quite capable of this task. The 
trouble may be that you have more than one Commodore 64, one 
1541, and one monitor in your system, or that some hardware 
mod or plug in cartridge is causing problems, or your disk drive is 
slightly out to lunch. As a final might-be, it could be that the disk 
you received is indeed bad. Many different factors could be causing 
you problems. SuperKit. with its vast speed and power seems to be 
very particular about system configuration. According to Prism, a 
re-write is under way that will straighten this problem out. 

Now, to cover each problem sequentially. If you have a printer, 
extra disk drive, modem or virtually any extra peripheral device 
connected in any way to your computer or drive (even if it is not 
turned on), this could cause problems. The Epson and Gemini 
printers are the biggest trouble makers for SuperKit. Disconnect 
everything extra completely from your system. Absolutely remove 
the connectors and your problems might vanish. Please remember 
that extra peripherals also include Fast Load cartridges and such 
that are always token for granted and forgotten. SuperKit is fast 
enough without any additional help. 

Hardware mods could include a new set of ROMs for your 64 or 
1541 that have made improvements on Commodore's design. 
There are lots of super ROMs out there that beef up the I/O 
handling plus provide all sorts of programming goodies, but 
SuperKit hates them. To get all the neat goodies for you to play 
with, the ROM must contain substantially altered code from the 
original. Normal ROM entry points are no longer, some features 
have been completely removed to make way for the neat stuff and 
pieces of code that are involved in critically timed routines are no 
longer so critical Any number of mods to your ROMs could affect 
SuperKit, and for that matter any software package, with unpre- 
dictable results. If you know that your system and SuperKit do not 
cohobitate well together, then return the package to us (with sales 
receipt included). It makes little sense for you to retain a package 
that cannot live with your system. 

The final problem that we know about could be that your drive is 
not as tight as it was when conceived. The head could slap around 
a bit too much, the belt could have a bit of slack and any number of 
other factors could turn your drive into something SuperKit has 
difficulties dealing with. When trying to duplicate SuperKit using 
the Super Nibbler on side two of the diskette, set the maximum 
track number to 40. By telling SuperKit to bit copy as far out as 
track 40. a slight bit of internal drive slack will not be a problem. If 
your drive problems are worse than being just a little bit out to 
lunch, then perhaps o service call is in order 

One other note: after using the Super Nibbler. it's best to send an 
Initialize command to your drive. This brings the head back from 
the "far reaches". 



Games From The Outside Out: I look forward every other 
month to receiving my Transactor, For the most part, it is far above 
average. Mostly, this letter is not as much of a *'comp!aint" as it is a 
''reader's point of view". 

The cover for September said "The Tech/News Journal For Com- 
modore Computers", ft also said "Games from the Inside Out" 
showing pictures of demons, fighter planes, tanks, etc. 

Mentally, I combined the slogan of Transactor, the image of the 
dark secrets of Zork exposed, or Enchanter, or if not that then a 
close look at multicolour, fast action of Zaxxon, or a clue as to the 
fabulous programming techniques of Beach Head, or Seven Cities 
of Gold. Oh, the thrill, the anticipation, . , 

Then, eagerly. 1 scan from cover to cover: One (1) Game! Animals? 
I had that 12 years ago (and a belter version to bool) and IN 
BASIC !(?) 

Four valuable pages which could be spent telling me about 
Commodore were used for a useless ATARI review. Oh. the pain. If 
1 want reviews, which 1 don't. Til buy Compute!, which I don't. 

Four more pages for Animals, and another wasted on silly car- 
toons. In those NINE pages you could have told a lot about 
Commodore. 

I am especially interested in how things are done and why they are 
done in ML. A source of various ROM routines with comments 
could be a great teaching tool for a Transactor column, as could 
more information regarding the disk drive. 

Please don't misunderstand - Transactor is by far the best, but it is 
the best only when it is different! Please, no more reviews 
(especially NON-COMS) and no more cartoons to waste valuable 
space! 

Wayne Gurley. Wills Point, Texas 



Another Vote Against Tlie Atari Article: At the risk of being 
labeled an Amiga jingoist, I am a little distressed as to the inclusion 
of the '*Atari ST Notebook" in the latest issue. If the article was 
included because the Atari is a 68000 machine, then by that logic, 1 
expect we will start seeing articles on the Macintosh. One reason 
why I subscribe to your magazine is because of its narrow focus on 
Commodore products. 

My chief complaint is that the pages used for the Atari article could 
have been used for an article on the Amiga operating system. The 
Amiga operating system is woefully lacking in documentation. 

Despite this mild complaint. I think you are producing an excellent 
magazine. Keep up the good work. 

J. Richard McEachern. Saint Louis, Missouri 



Let's hope that these few points make life with SuperKit easier It is 
truly a fine product, one that we gladly stand behind in every way. 
it^s just a shame that it cannot live in peace with more than its 
immediate family. Perhaps the much desired re-^write taking place 
in Texas right now will cure it of its unsociable attitude. We're pretty 
sure it will You may also want to look at the two articles in this 
issue that address other aspects of SuperKit and other copy uitlities. 



Ouch. Being hit twice in a row about the Atari article really hurts! 
We ran the article because it was exceptionally well written, 
without any biased Atari hype. It did not contain any program 
listings, so it didn 't require a machine in order to learn something 
from it. 

Although it went against our morals to cross over to the other side 
for that article, we felt it was worth it. Jack Cole is such a good 
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author, and a master in R^-D, that we had to run the article. At one 
point, we had been tampering with an idea for a 68000 magazine 
as an insert within the Transactor every issue. The extra magazine 
portion was abandoned, but Jack had already been working on 
the article to help us out. To finish the article Jack fought against a 
nasty flu bug to make deadline. Jack did pull through, and his Atari 
Notebook was the result. With such devotion, would it have been 
morally right for us to reject his efforts, especially after we had 
initially solicited his aid? We say NOf 

It might also be interesting to note that the ST is more like o 
Commodore than anything Atari has built. Furthermore, the 
Amiga is more like an Atari than anything Commodore has 
produced. In fact, the Amiga project was originally commissioned 
by the pre-Tramiel Atari Corp. Jay Minor, who is mostly responsi- 
ble for those three workhorse VLSI chips in the Amiga, was also the 
chief designer of the 'Antic" chip in the early Atari machines. And 
the ST project is staffed mostly by former Commodore employees - 
it^s even possible that they started the ST before becoming ex- 
Commodore. A twist of events like this leaves one pondering to be 
sure. 

Referring back to Mr. Gurley's letter, it would take months to 
unravel the secrets of some games without source code from the 
aulhorfs). Time like that we unfortunately just don't have. Quite 
simply, the bulk of any issue is a collection of submissions, 
sprinkled with the odd item that we have time to write ourselves. 
And lastly, although we can ? promise to exclude the cartoons, we 
can promise that comparisons will take priority over reviews. The 
odd review may show up when it's important, but we will try to 
keep them to a minimum. 



Improving The SYS Command: Volume 7 Issue 01 page 64 

The description of the routine at $AD9E, described under Ihe 
heading Routines used in passing parameters; said thai the routine 
evaluates an expression and if the result is a string, puts it al $01 00. 
In reality, the string doesn't go here at all; the routine returns a 
pointer to the string descriptor in locations $64 and $65 (these 
point to three bytes containing the string's address low, address 
high, and length). Another point that should have been mentioned 
is that you should call $B6A6 after $AD9E to clean up the siring 
descriptor stack. After calling $B6A6, a pointer to the string itself 
will be in locations $22 and $23 (also in ,X and ,Y), and the 
accumulator will hold the length of the string. If you call $B6A3 
instead of $B6A6, it will first check that the expression was of a 
string type. 



SYMASS3.1 Fixes 

The Symass 3.1 Assembler on Transactor Disk *12 has a bug that 
makes it corrupt the symbol table when it encounters an expres- 
sion defining a label as a function of another label (for example 
LENGTH = ENDTAB-TABLE). To fix Symass SA and turn it into 
3. \ 3. LOAD in SYMASS 3. J , make the follwing POKEs, and SAVE 
the updated version as SYMASS 3.13. 

POKE 3304,56 
POKE 2965.234 
POKE 5057,51 

(The above changes turn SYMASS 3. 1 into 3, 1 2. as described in the 
article "Save SYMASS Symbols" in Volume 7. Issue 02) 



Rx For Grammar: There ain't no such wordas'lrregardless". 

Dr. James N. Little, Walnut Ridge, Arkansas 
Too bad. . . It really was such a nice word to have around. 



SpelChekerThrough the magazine in Vol 7*1, you mis.spelled 

"colonel" as "kernal". It's "churnar\ isn't it? You even misspelled 

it on the kovar. 

jef( Jourard, Santa Monica. California 



POKE 
POKE 
POKE 
POKE 
POKE 
POKE 
POKE 
POKE 
POKE 
POKE 



3312,98 
3316,99 
3318,98 
3323,98 
3328,99 
3332,99 
3370,98 
3389.98 
3393,93 
5057,51 



TransBloopers 

Bits & Pieces: Volume 7 Issue 02 page 12 

In the Amiga Startup-Sequence on page 12. the first greater-than 
(>) in the DATE Junction argument should be a less-than (<). 



Elininating SAVE®: Volume 7 Issue 02 page 33 

The article did not mention that the complete ROM exists on the 
Transactor disk for that issue. The file is 16k long and contains a 
dump of the entire SAVE@-fix ROM for the 1 54 L It^s a "'PRG'^ type 
file with a start address of $2000. Remember to strip the first two 
bytes if your EPROMer doesn't - otherwise the start address will be 
sent to the EPROM and throw everything oil by two bytes! 



C128 Memory Maps: Volume 7 Issue 01 page 29 

Mike Mellinger from Connellsville, PA wrote in to draw our 
attention to a few more errors in these maps. Below is a list of the 
incorrect lines, v/ilh the corrections to the right. 

D800-D8E7 should be D800-DBE7 

1178-1197 shouldbe 1178-1179 

1271-1274 4721-4274 shouldbe 127M274 4721-4724 

Decimal addresses from 2595 through 2602 should be 2597 

through 2604 (they're all off by 2). 
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TransBASIC 
Installment ^11 



Nick Sullivan 
Scarborough^ Ont 



TransBASIC Notes 

TransBASIC has been a regular Transactor feature for almost two 
years. Those who have been following the series know atl about it. 
Recently, however, we've received letters to the effect of "what is 
TransBASIC?". Quite simply, TransBASiC is a method of adding new 
commands to BASIC (see ^Tan I: " below). The commands come in 
'modules ' which may contain one or more commands OR functions. 
After merging the modules of your choice, the entire lot is assembled 
and hnked into BASIC The new commands can then be used just like 
any of the other commands that are already in the BASIC ROM when 
the C64 is powered up. 

The TransBASIC Disk 



the same system vector, however, a potential crash situation exists. 
Part 7 deals with avoiding this problem. 

Part 8 - Describes the five modules for Part 8. 

Part 9 - Inscribes the six modules for Part 9. and mokes first mention 
of The TransBASIC Disk. 

Part 10 - Describes the six modules for Port W. and details some 
minor bugs in the modules "MC GRAPHICS'] "MOVE <S FILL", and 
'TRGMNGMNr\ 



The TransBASIC Disk contains all of the modules published so far and 
il comes with its own assembler, SYMASS 3,L Any combination oi 
modules can be linked into BASIC with only a few simple steps. From 
start to finish is usually no more than a couple of minutes, . . even less 
once you get the hang of il. It comes with a handy reference lor just 
$9.95, See the order card at center page. 

Note; A bug has been found in the SYMASS Assembler thai shows up 
when you define a label as a function of another label. So far we 
haven't noticed It while using the TransBASIC Disk, only with other 
unrelated source code. Check the Transbloopers column in this issue 
for the fix. 

TransBASIC Parts 1 to 8 Summary: 

Pari 1: The concept of TransBASIC - a custom command utility that 
allows one to choose from o library only those commands that are 
necessary for a particular task. 



TransBASIC Installment ' 1 1 

Inthisissueyou'llfindonlyonemodule, but it's a big one. The author 
is Paul Adams oJ Revelsloke, British Columbia, who wrote it to fill a 
personal need, Paul writes; 

"I was writing a program to log my daily running (by fool, not by 
computer) and needed some commands that would allow belter 
graphing capabilities than Icouidfind. Of course, being an Engineer J 
like lo graph everything, . ." 

Well, if you like to graph everything too, this is the module for you. 
Paul has come up with the interesting concept of combining two hi- 
res screen areas into one double-height drawing area for his graphs. 
His plotting commands have the capability of addressing this area 
with y-coordinates from to 399 (to make things Cartesian, he has 
put the zero y-coordinate at the bottom rather than the lop of the 
screen). 



Part 2: The structure of a TransBASIC module - each TransBASIC 
module follows a format designed to make them simple to create and 
'^mergeable" with other modules. 

Part ^: ROM routines used by TransBASIC - many modules make use 
of ROM routines buried inside the Commodore 64. Pan 3 explains 
how to use these routines when creating new modules. 

Part 4: Using Numeric Expressions - details on how to make use of 
the evaluate expression ROM routine. 

Part 5: Assembler Compatibility - TransBASIC modules are written in 
PAL Assembler format. Techniques for porting them to another assem- 
bler were discussed here. 



On this big plane you gel the capability of drawing lines and rectan- 
gles, either solid or in a dot pattern of your choosing. You can also 
write text (o the screen, including a variety of special characters that 
come in handy in graph work. 

Because the hi-res screens take up 8000 bytes apiece, plus another 
1000 bytes of video matrix for each one, you sacrifice a bit of BASIC 
memory when you use this module. In fact, before you start using the 
hi-res, you should give the command; 

poke 56,140: poke 55,0: clr 

to protect the BANK 2 video matrix at $8C00 and your BASIC strings 
from writing all over each other. 



Part 6; The USE Command - The command ADD' merges TransBA- 
SIC modules into tex^t space. However, as more modules are ADDed, 
merging gets slow. The USE command was written to speed things up. 
USE also counts the number of statements and functions USEd and 
updates the totals (source line 95) automatically. 



A couple more things: if you should commit a syntax or other error 
while you're in one of the hi-res screens, you will have to type the 
DEFAULT command blind to get back. Alternatively you could in- 
clude William Turner's TRAP command from last issue in your 
dialect, and make the DEFAULT command part of your TRAP routine. 



Part 7 - Usually TransBASIC modules don't need to worry about Drawing large rectangles can lake quite a while in hi-res, especially 
interfering with one another. When tux) or more modules want to alter when they're completely solid rather than patterned. I found myself 
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wanting a way lo switch between the upper and lower sections of the 
drawing area so that I could monitor what was going on, so I added a 
few lines to the plotting routine that will cause the screens to be 
swapped when you press and release the CTRL key (the swap actually 
happens on the release). This feature is only operational while d plot is 
actually in progress. Sometimes 1 also wanted to see debugging 
information that 1 was printing to the text screen during a series of 
plots, so 1 also added a trap for the LOGO key. The text screen is made 
visible whenever this key is held down during a plotting operation; 
the current hi-res screen is restored when the key is released. 

If you look in the code for DEFAULT routine (in the neighbourhood of 
program line 13080), youll see a patch I had to put in to cure a very 
odd hardware-related bug that occurred in the very standard routine 
that switches video banks from BANK 3 to BANK 0. The net effect of 
the bug was that the RTS at the end of that routine was frequently 
executed as a JSR (a $20 rather than $60), which in this case was a JSR 
into the never-never. The patch, which consists of synchronizing the 
bank-switch to the position of the raster beam, does fix the problem, 
but 1 have no notion why and would love to hear from someone who 
does. 

The unpatched code works correctly on a number of other 64s that I 
have tried. Mine is a standard-issue machine except that it has a 
Cockroach Turbo ROM installed for fast disk operations. It seems 
unlikely that the Cockroach is the cause of the bug, which occurs 
whether or not the fast DOS routines are enabled, but perhaps it s not 
impossible. If anyone out there wants to test and report on the 
following code, particularly if you also have a Cockroach ROM 
installed, Td be interested to hear what comes of it: 

Ida $dd02 ;set upClA#2 DDR 
ora #3 

sta $dd02 
loopida $ddOO ;switch to bank3 
and #$fc 
sta SddOO 
Ida $ddOO ;swtIchto bankO 

ora #3 

sta SddOO 

Ida $028d ;exit If SHIFT down 

beq loop 

rts 

if you don't have the bug, this routine will just make your screen go 
bananas till you press SHIFT. If you do have the bug, something else 
will happen. 

Back lo graphing: the print command GPRINT in the GRAPHCMDS 
module is set up, as I mentioned atwDve. for the Epson MX-80, and 
won't work on anything not compatible with that machine. If you 
want lo drive another printer with this module, however, there's no 
reason why another version of GPRINT couldn't be dropped into the 
module. Because another printer might need more code than Paul 
required for his MX-80 {the 6 by 7 print-head matrix of the 1525/ 
MPS801 , for example, is a bit tricky to write hi-res dumps for) I have 
left some unused program lines that you can spill over into if 
necessary (14614 to 14998). 

Just so the news, when it finally breaks, won't come as a life- 
threatening shock, I would like to officially start the rumour now that 
next issue's TransBASlC column will be announced as the last of the 
series. You donH have to believe it If you don't want to> but it just 
mii^ht be true. See you then- 



New Commands 

PLOT (Type: Statement Cat'; 175) 

Une Range: 12694-12972 

Module: GRAPHCMDS 

Example: PLOTX.Y 

This statement sets the specified pixel in the hi-res drawing area. The 

pixel is cleared if erase mode has been selected. X and Y can range 

from to 319 and to 399 respectively. 

GCLR (Type: Statement Cat '; 1 76) 
LineRange: 12974-13016 
Module: GRAPHCMDS 
Example: GCLR 
The hi-res drawing area is erased. 

GCOL (Type: Statement Cat*: 177) 
Line Range: 13018-13036 
Module: GRAPHCMDS 
Example: GCOL16»6+14 

The hi-res foreground and background colours are set by this com- 
mand- The foreground colour is set by the upper nybble of the 
parameter, and the background colour is set by the lower nybbte, 

UPPER (Type: Statement Cat': 178) 

LineRange: 13038-13094 

Module: GRAPHCMDS 

Example: UPPER 

The upper portion of the hi-res drawing area is displayed (y- 

coordinales 200 through 399). 

LOWER (Type: Statement Cat ': 179) 

LineRange: 13042-13094 

Module: GRAPHCMDS 

Example: LOWER 

The upper portion of the hi-res drawing area is displayed (y- 

coordinates 200 through 399). 

DEFAULT (Type: Statement Cat*: 180) 

Module: GRAPHCMDS 

Example: DEFAULT 

The screen is restored lo the default text mode, with the ROM's 

uppercase/ lowercase character set, and screen memory at $0400. 

LINE fType: Statement Cat*: 181) 

LineRange: 13114-13548 

Module: GRAPHCMDS 

Example: LINEX1,Y1,X2.Y2 

A line is drawn between the specified coordinates using the pattern set 

in the last PATTERN command. The default pattern is $FF (a solid 

line). 

SLINE (Type: Statement Cat*: 182) 
LineRange: 13096-13546 
Module: GRAPHCMDS 
Example: SLINE XUYL.XH JH 

A line is drawn between the specified coordinates using a single- 
dotted pattern (1 dot on, I dot ofO- This has the effect of setting the first 
PATTERN parameter to $55. 

DUNE (Type: Statement Cat": 183) 
LineRange: 13100-13548 
Module: GRAPHCMDS 
Example: DUNE X1,Y1,X2.Y2 

A line is drawn between the specified coordinates using a double- 
dotted pattern (2 dots on, 2 dots off). This has the effect of setting the 
first PATTERN parameter to $33. 
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NUNE{Type:Stalemenl Cat*: 184) 

Line Range: 13104-13548 

Module: GRAPHCMDS 

Example: NUNEXL.YUXR.YR 

A solid line is drawn between the specified coordinates. This has the 

effect of setting the first PATTERN parameter to SFR 

QUNE {Type: Statement Cat ■: 185) 
LineRange: 13108-13548 
Module: GRAPHCMDS 
Example: QLINE X1.Y1,X2,Y2 

A line is drawn between the specified coordinates using a quadruple- 
dotted pattern (4 dots on. 4 dots off). This has the effect of setting the 
first PATTERN parameter to SOP 

CHAR (Type: Statement Cat *: 186) 

LineRange: 13550-13956 

Module: GRAPHCMDS 

Example: CHARX.Y,CHR$C5)+ 'GUMBOOT" 

The string is printed at the specified location in the hi-res drawing 

area. Most control characters are ignored. However, the cursor control 

characters have their normal effects, and the following have special 

meanings, as follows: 



CHR$(18) 

CHR$(146) 

CHR$(31) 

CHR$(30) 

CHR$(144) 

CHR$(5) 



{CTRL-9) Reverse on 
(CTRL-O) Reverse off 
(CTRL-7) Uppercase/lowercase 
(CTRL-6) Uppercase/graphics 
(CTRL-1) Erase mode on 
(CTRL-2) Erase moe off 



Note thai the last two of these are equivalent to setting the erase mode 
with the ERASE command in this module^ 

SCHAR (Type: Statement Cat *: 187) 

UneRange: 13958-14094 

Module: GRAPHCMDS 

Example: SCHAR 141.277,5 

A special character (specified as the third parameter) is drawn at the 

specified coordinates. The special characters are either 3 by 3 or 5 by 5 

pixels in size. Those available are: 



*0 


: a 5 by 5 diagonal cross (x shape) 


'I 


: a 5 by 5 orthogonal cross ( + shape) 


#2 


:a5by 5 hollow square 


*3 


: a 5 by 5 hollow diamond 


#4 


: a 3 by 3 diagonal cross 


*5 


: a 3 by 3 orthogonal cross 


*6 


: a3 by 3 hollow square 


'7 


: a 3 by 3 hollow diamond 


'8 


: a 5 by 5 solid square 


'9 


: a 5 by 5 solid diamond 


•10 


: a 3 by 3 solid square 


*U 


: a 3 by 3 solid diamond 



BAR (Type: Statement Cat': 188) 

LineRange: 14122-14220 

Module: GRAPHCMDS 

Example: BAR X1.Y1,X2,Y2 

Plots(orclears, in erase mode) a bar in the area bounded horizontally 

by XI and X2, and vertically by Yl and Y2. The bar is drawn with the 

pattern last set by the PATTERN command. The default pattern is solid 

(both parameters $FF). 



SBAR(Type: Statement Cat •: 189) 

LineRange: 14096-14220 

Module: GRAPHCMDS 

Example; SBARX1,Y1,X2,Y2 

A bar is drawn in the specified region using a single-dotted pattern 

(one dot one, one dot ofQ. This command sets the pattern parameters 

to $55 and $AA, 

DEAR (Type: Statement Cat ': 1 90) 
LineRange: 14104-14220 
Module: GRAPHCMDS 
Example: DBARX1,Y1,X2,Y2 

A bar is drawn in the specified region using a double-dotted pattern 
(two dots one, two dots off). This command sets the pattern parame- 
ters to $33 and $99. 

NBAR (Type: Statement Cat': 191) 

LineRange: 14112-14220 

Module: GRAPHCMDS 

Example: NBARX1.Y1.X2,Y2 

A solid bar is drawn in the specified region. This command sets the 

pattern parameters to SFF and $FF. 

GSAVE (Type: Statement Cat': 192) 
UneRange: 14222-14364 
Module: GRAPHCMDS 
Example: GSAVE "BIG-GRAPHS" 

The drawing area (or the portion of it specified in the SIZE command) 
is saved as a sequential file to drive 0, unit number 8, The characters ' 
-g" are appended to the first fourteen characters of the specified 
filename. The two hi-res screens that make up the drawing area are 
stored contiguously in the file, which can hence be easily re- 
examined only with the GLOAD command. The GSAVE routine 
makes use of logical file *2 and secondary address "1 — make sure 
these are available before attempting a save. 

GLOAD (Type: Statement Cat*: 193) 

LineRange: 14230-14440 

Module: GRAPHCMDS 

Example: GLOAD ^HUGE-GRAPHS" 

This restores a saved graph to the drawing area from drive 0, unit 

number 8. If only a portion of the screen was saved to this file, the 

GCLR command should be given before reloading. As with GSAVE, 

logical file *2 and secondary address *2 must not be currently in use 

when this command is given. 

SIZE (Type: Statement Cat *: 194) 

LineRange: 15008-15068 

Module: GRAPHCMDS 

Example: SIZE 240 

An upper boundary is set in the hi-res drawing area, for use by the 

GSAVE and GPRINT commands. The boundary is set as a y- 

coordinate (up to 399. which is also the default). The specified number 

is then rounded up to the nearest 4-characler (32 scan-line) boundary 

for actual use. The purpose of this command is to save disk space and 

printing time when part of the drawing-area is unused, 

LMAR (Type: Statement Cat': 195) 

UneRange: 15000-15006 

Module: GRAPHCMDS 

Example: LMAR N 

The printer left margin is set to N columns. The default is 1 1 . 
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Prnrvam i \ CbRAPHCUDS 




"IT 


157» 


[xa 


;find itne number 


GPRINTfType: Statement Cat '; 196) 
UneRange: 14442-14612 






i) 


U 

NL 
BP 


12792 
12794 
12796 


and «7 
sla rasl 
Ida row 


;add row-2t6 to 


CI 
FH 


tem g raphe mds (paul adami 

1 : 


Module: GRAPHCMDS 


MP 


2rem2'lslalemenfs, Ofuncifons 


AM 


12798 


Idx #6 


;base 


Example; GPR NT 


Hh 
MN 


3 

4 rem keyword characters: |13 


PK 
Al 


12800 
12802 


jsr cmltad 
kJx tt2 


;addrow.2tf6 + 2) 


The current drawinc area (lo the limit set 


JH 


5 




KE 


12804 


jsr rnhadd 


; fof Idal row*320 


by the SIZE command) is printed to an 


FF 

LH 


6 rem keywords #1 75 To #1 98 
7: 




GB 
FF 


12806 
12808 


►da cd 
kJx to 


.addcoi-(2f3j 


Epson MX-80 print. Logical file '3 is used 
by this command, and must be available 


BO 
NH 
AF 


9. 

39 serTfs = Sttba 




JL 
NP 
KL 


12810 
12812 
12B14 


jsr cmltad 
Idy #0 
sty lmp2 


;.y is index laier 


when the command is issued. 


KD 


40 selnam - iff bd 




FJ 


12816 


fda rast 






IG 


41 open = jffcO 




MH 


12818 


jsr add 






CL 


42chkfn = IffcG 




ED 


12820 


sei 


jdisable rrq 


ERASE (Type: Statement Cat': 197) 


IH 
IB 


43 dose = $ffc3 

44 circhn > Sffcc 




DH 
LD 


12822 
12824 


Ida 1 
and *$fc 


; switch outroms 


Line Range: 15070-15082 


DB 


45 getin = Iffe4 




BP 


12826 


Sla 1 




Module- GRAPHCMDS 


MD 


46chkDut - Sftc9 




PK 


12828 


Ida (tmp),y 


;get byte lo change 


^ V ^ ^^^i^ '_T ^ %^ L ^^iM F 1 r 1 F I ^_H I ■ I k^F ^hv 


GF 


47chroul = $ffd2 




JL 


12630 


eor ertlg 


jnven rt eras(r>g 


Example: ERASE 


GK 


48; 




GK 


12832 


ora blip 


.add poini 


If this command is given with a non-zero 


OK 
AB 


49 imp = $57 .more zp Storage 

50 lrnp2 = $59 


NL 
EN 


12834 
12836 


eor etflg 
Sla (imp).y 


Invert if erasing 
,wriie to screen 


parameter, erase mode is turned on. This 


KB 


51 Imp3 - S5a 




OG 


12838 


Ida 1 


;swLlch in roms 


results in all drawing commands clearing 


OB 
NN 


52lmp4 = $5c 

400 asc ' ploTgclRgcoLuppefl ' 


KA 
BA 


12840 
12842 


ora *3 

sta 1 




the affected pixels instead of setlinq them. 


\C 


401 asc 'lowefldelaulTlinE' 




OC 


12844 


Cll 


enable irq 


Erase mode is turned off by using a zero 


JM 

IJ 


402 asc 'sfinEdlinEnlinE' 

403 asc ■ qlinEchaRschaB ■ 




EK 
HK 


12846 
12848 


Wy SddOO 
Ida S028d 


,gel current screen 
test logo key 


parameter, as in the example. 


OM 


404 asc ■ baflsbaRdbaRr^baR " 


Al 


12S50 


lax 


,(save shrfi reg) 


GH 


405 asc "gsavEgloaOsizE " 




DM 


12852 


and *2 




^^^^^^ ^m ^^^^^^^^^^^^^^^^^^^^^^^m ^^^^^^ ^^^ ^m ^^^^^^^^ ^^^h ^^^^^ ^ ■ ^B ^^^L ^^^^ k 


Jl 
00 


406 asc 'ImaRgprinTetasE" 

407 asc "paTterN 




NH 
AN 


12854 
12856 


beq plo7 
jsr defli 


, not pressed 


PAI ILRN (Type: Statement Cat *: 198) 

■ + V^ ^ ^^ ^^ W^ X J ^^ J ^^ A 




,lext screen on 


KG 


1400 wordplo-l.gcl-l.gco- 


1.uppe-1 


AJ 


1 285B plo6 


Ida $028d 


,wail for release 


LineRange: 15084-15154 


GM 


1401 wordlowe-l,deflf-l,pl<n-^ 


HA 


12860 


lax 




Module' GRAPHCMDS 


BN 


1 402 word slir>-l .dlrn-1 nfin- 


1 


NM 


12B62 


and #2 




± P ■ agjT ^J '_' L m^ L Vi^n F 1 ■ H H F H ^_r I ■ F k^F v^F 


AN 


1403 wordqlin-l.cha-i.sche 


1-1 


GL 


12864 


bne plo6 


. not released 


Example: PATTERN N1,N2 


FG 


1404 wordbba-i.sba-i.dba 


-l,nba-1 


HE 


12866 


tya 


;gel dd screen 


The plot patterns are set for the BAR and 


LM 
JG 


1405 .wordgsav-l,Qloa-l,siz-l 

1406 wordlma-l.gpfin-l.eras-l 


HN 
FK 


12868 
12870 


and #3 
cmp#3 


,lesl text 


LINE commands. LINE uses only the first 


FN 


140B wordpatt 1 




BJ 


12672 


beq ptoli 


, yes 


of the two patterns; BAR uses both. For 


01 
AJ 


2620 usfp Jdx #0 
2622 sTx $0d 




DA 
LD 


12874 
12876 


eor #1 
bcc pto9 


,sw(tch scieens 
[branch always 


BAR, the Nl parameter is applied verti- 


MA 


2624 sra $62 




KC 


12S7flplo7 


ixa 


,test Ctrl key 


1 ^ ' 

cally, and the N2 parameter horizontally. 


BH 
ON 


2626 sty $63 
2628 Idx *I90 




HO 
PE 


12680 
■ 12882 


and #4 
beq ptoll 


, not pressed 


The patterns effectively create a mask 
over the region being drawn to: bits that 


HM 
NH 
AM 


2630 sec 

2632 imp $bc49 

2634; 




MK 
, NO 
PI 


12884 plo8 

12666 

12888 


Ida $026d 
and #4 
bne plo8 


,wait lor reiease 


are set lo 1 In the mask will be affected 


FJ 


3694 powers byte 1,2,4. B,16, 32, 64. 128 


IHN 


12890 


tya 


.switch screens 


^ ^ ^m m ^m ^ ^ ^m m ■ ■ 


GO 


3696, 




FG 


12592 


and*3 


,1esf whch scrnon 


(set or cleared, according lo the erase 


GO 


12694 plo jsr Q&2 


\read x.y params 


EF 


12694 pJo9 


bne plolO 


, not lower 


mode), while bits are not affected. The 


NA 


12696plol sec , entry 




KN 


12896 


imp uppe 


,turn on upper scrn 


IE 


12693 Ida #S6I 


,redely.ty-399-y 


JN 


12898 plo 10 


cmp#l 




default patterns are $rF and $FF, select- 


NG 


12700 sbc y 




JH 


12900 


bne plol 1 


; not upper 


ing all bits. 


KE 


12702 sm ty 




CN 


12902 


imp bwo 


^turn on lower scrn 


Nl 


12704 Ida #1 




EF 


12904 ploll 


rts 






KF 


12706 sbc y + 1 




AO 


12906, 








CB 


12708 sia ty + 1 




GCi 


12908cmJtad T^a 


lenlry to pre- dear 




OK 


12710 bcs ^o2 


;y>399 - loo big 


NN 


12910 


Ida #0 


;lmp2 


Editor^s Note 


EJ 


12712 r{s 




ML 


12912 


sla tmp2 






M3 


12714 plo2 Idx #$cO 


,sei base Eo upper 


KP 


12914 


pla 






GB 


12716 Idy #$cO 


; or lower hi- res 


KO 


12916: 






This incredibly huee TransBASIC module 


MB' 

1 


12718 Ida y + 1 


:base = JaOOO (uppeF) 


FB 


I29l8mltadd asl 


;multby2t(xreg) 


is fisted here onfy tor reference. Although 


PEJ 
ID 


12720 bne plo3 
12722 Ida *$c7 


ibase = tcOcO (lower) 
;loweFy-0-l99 


OA 
BA 


12920 
12922 


fot lmp2 
dex 


.high bytetmp2 
-bwbyle a 


the Verfizer codes ore shown. HI be 


JK 


12724 cmpy 


.upper y = 200-399 


PK 


12924 


bne mitadd 




^^^m ^^^ ^m ^^^^^ ^^ ^^ ^^ ^^ ^ ^^ ^^ ^^ ^^ ^ ^ ^ 


EP 


12726 bcs plo4 




EP 


12926: 






shocked to find out someone actually 


CP 


1272eplo3 1dx #0 




GO 


1 2928 add 


pha 


;save low byte 


entered it by hand. My apologies for the 


AH 
AJ 


12730 Idy #$aO 
12732 plo4 six tmp 




EA 
ML 


12930 
12932 


cic 
adc Imp 


; addle Imp 


type size - its the only way we could 


LH 


12734 sty lmp + 1 




KA 


12934 


sla tmp 




justify including it. 


IF 
JG 


12736 Idx X 
12738 Ida x + 1 


,lesl x<320 


GJ 
U 


12936 
12938 


Ida lmp2 
adc lmp+ 1 






MA 


12740 beq plo5 


;yes 


JO 


12940 


sta Tmp + l 






IP 


12742 cmp^l 




EA 


12942 


P^ 


/eslore low byte 




LK 


12744 bne plo2 


; no 


MH 


12944 


fta 






HG 


12746 cpx *S40 




lA 


12946; 








GM 


12748 bcs plo2 


. no 


IF 


1294egel2 


isr $ad8a 


.get numerc arg 




GA 


12750 plo5 Tor 


;d(vide x by 8 


HC 


12950 


|sr Jaetd 


iCheck comma 




El 


12752 txa 




AM 


12952 


jsr comx 


;check range 




NP 


12754 ror 


;3 left with hi bir 


GC 


12954 


isr $b7»7 


■conv lo integer 




NK 


12756 Isf 




EP 


12956 


sfy X 


,save 1st word 




PK 


12758 Isr 




Dl 


12958 


sfa x + 1 






HF 


12760 sla col 


xolumn number 


BF 


12960 


jsr Sad8a 


gel 2nd arg 




NO 


12762 txa 


.Imd bit# in cd 


OM 


12962 


jsr corny 


, check range 




PH 


12764 arxJ #7 




AD 


12964 


jsr Sb7t7 


;conv TO integer 




NO 


12766 eor #7 


icalc 7-(bn tt) 


ON 


12966 


Sty y 


, save 2nd word 




OL 


12768 lax 


;conv lo bit mask 


0[ 


12968 


sla y+ 1 






NM 


1 2770 Ida powers, X 


; in blip 


GJ 


12970 


rts 






KJ 


12772 Sla blip 




CC 


12972, 








AG 


12774 Idx ty 


,hnd row and line 


EO 


1 2974 gd 


Ida #Sbf 


;dear 32 pages 




IB 


12776 Ida ly + l 




FF 


12976 


Sla t3 


, o1 memory at 




OJ 


12778 rof 




HJ 


12978 


Ida nn 


; laOOO and SeOOO 




HA 


12780 ixa 


, divide by 8 


JA 


12980 


sla t5 


; (upper and lower 




CK 


12782 rof 




HO 


12982 


Idx «r$20 


. hi-res screens) 




JM 


12784 Isr 




HF 


129S4 


Idy #$40 


;incompl lop page 




LM 


12786 tsf 




FK 


12986 


Ida #0 






DM 


12788 sfa row 


;row number 


OL 


12988 gel 1 


pha 


.entry from gcd 



Nov. Mid: VolunM7,lMM03 



CG 


12990 


Ida KO 


; routine (below) 


AL 


13186 


jsr com y 


:check range 


IK 


13386 


Sty X 






OB 


13992 


sta 12 




HB 


13190 


Idx #<xo 




BD 


13388 


sta x + 1 






EC 


12994 


Sia tA 




JB 


13192 


Idy #>xo 




fP 


13390 


jSr dptot 


;plot dotted point 




ME 


12996 


p-a 




KL 


13194 


jsr Sbbd4 


;y2 to xo temp 


LJ 


13392 


Ida y + 1 


;testy = y2 




KD, 


12998 9012 


dey 




IB 


13196 


|Sr Stj7f7 


;conv to JrEeger 


OH 


13394 


cmpy2 + l 






GF 


13000 


sla il2),v 




BF 


13198 


sty y2 




GD 


13396 


bne linS 


nno 




OF 


13002 


sia (r4),y 




FL 


13200 


sta y2+ 1 




HB 


13398 


Ida y 






HM 


13004 


bne gcl2 




HM 


13202 


Ida #<xo 




CM 


13400 


cmpy2 






LO 


13006 


dec 13 




FC 


13204 


Idy #>xo 




JJ 


13402 


beq line 


,yes 




BP 


13006 


dec 15 




FC 


13206 


jsr Sbba2 


; recall y2 


EB 


13404 linS 


inc y 


,increrr>ent y 




Jl 


13010 


dex 




FJ 


13208 


Ida #<Imp1 




\H 


13406 


bne fin4 






PM 


13012 


bne gcl2 




DP 


13210 


Idy #>lmpf 




IC 


13408 


irkc y *-1 






CM 


ISOI-I 


ns 




MA 


13212 


jsr SG850 


:mem--tac. y1-y2 


MH 


13410 


bne Iin4 






OE 


13016; 






LB 


13214 


Idx #<dy 




EE 


13412 iin6 


imp plol 


,plot last point 




80 


1301B9CO 


jSF Sb79e 


.getarg 


NB 


13216 


Idy #>dv 




AO 


13414 lin? 


Ida dx + 1 


;m1 of dx 




FD 


13020 


Ida •$6f 


;(ill 4 pages Ot 


ED 


13216 


jsr Sbbd4 


;stoie dy 


OF 


13416 


bmi Iin8 


;xl-x2<0 




PF 


13022 


sla t3 


, meiTuxy at 


FP 


13220 


Ida S61 


:lac exponent 


DE 


13418 


|Sr swap 






BB 


1302'! 


Ida #Scf 


. secOO and SccOO 


BH 


13222 


beq linl 


;fac-0 


HH 


13420 linS 


Ida xl 


;x-xl 




HD 


13026 


sia T5 


, (upper and lower 


FM 


13224 


Ida #<ds 




MG 


13422 


sta X 






NH 


13026 


txa 


; video mairces) 


Lx; 


13226 


Idy #XlK 




EF 


13424 


Ida xl + 1 






FD 


13030 


kJx HA 




KO 


13228 


jsr SbbOf 


;mem/tac, dx/dy 


HF 


13426 


sta x+1 






KM 


13032 


Idy l^le& 




EF 


13230 


Idx #<SX 




CA 


13428 Iin9 


Idy X 


,conv X to tkoai 




OL 


13034 


bne gcll 


.branch always 


GF 


13232 


Idy #>sx 




NB 


13430 


Ida x-ff 






CG 


13036, 






OK 


13234 


jsr Sbbd4 


, store slope, sx 


KF 


13432 


jsr usip 






JF 


I303euppe 


Idx #0 


;display upper scr 


BL 


13236 


Ida #<tmpf 




IM 


13434 


Ida #<sy 






LM 


13040 


byie S2c 




PA 


13238 


Idy •>linpl 




GC 


13436 


Idy #>sy 






CF 


1304210 we 


Idx #3 


:display lower scr 


JE 


13240 


isr Sba28 


:fac-fac-tmpf-3x-yl 


BP 


13438 


isr $ba28 


,X'SV 




PM 


13044 


byte S2c 




EA 


13242 


jsr Sblb4 


:lac * -sx-y1 


IL 


13440 


Ida #<yo 






NL 


I3046deflt 


ld.( #6 


;display dent scr 


EP 


13244 


Ida #<yo 




GS 


13442 


Idy #>yo 






MA 


13046 


Ida scrdaL.x 




CF 


13246 


Idy #>yo 




EO 


13444 


jsr 56867 


,yO + x»sy = x 




BN 


13050 


sia SdOll 




HH 


13248 


jst Sb867 


,tac-x1-sx-y1 


PP 


13446 


isr StJe49 


;add 0.5 




IN 


13052 


Inx 




DF 


13250 


Idx #<xo 




EB 


13448 


|sr $b7f7 


,convto integer 




CB 


13054 


Ida scrdal.t 




FF 


13252 


Idy #>xo 




JO 


1 13450 


sty V 






ON 


13056 


sia SdOie 




MG 


13254 


JST Sbbd4 


.store xo 


CH 


13452 


Sta y + 1 






EN 


13056 


Ida Sdd02 




BM 


13256 linl 


Ida #<d> 




ID 


. 13454 


JST dpiot 


.plot dotted popnt 




GO 


13060 


org #3 




DE 


13258 


Idy #>dx 




GN 


13456 


Ida x + 1 


;tQSt X - x2 




GB 


13062 


sia Sdd02 




GO 


13260 


fsr Sbba2 


,dx to fac 


NL 


; 13458 


cmp x2 + 1 






EO 


13064 


inn 




PB 


13262 


Ida 161 


,tac exponent 


OG 


13460 


bne linlO 


;no 




DK 


13066 


sei 




PJ 


13264 


beq Iln2 


;fac-0 


GF 


13462 


Ida X 






IJ 


13068 defl 


Ida Sd012 


.compensate fo< 


DP 


13266 


Ida i*'<dv 




BA 


13464 


cmp x2 






GJ 


13070 


bne de'l 


; hardware bugC'') 


BF 


13268 


Idy i*'>dv 




GN 


13466 


beq linll 


.yes 




AO 


13072 


Ida SddOO 




FB 


13270 


[sr SbbOt 


mem/fac. dy/dx 


GE 


13468 linlO 


inc X 


.increment x 




FD 


13074 


and #Slc 




CJ 


13272 


idx #<sy 




MM 


13470 


bne Iln9 






00 


13076 


ora scrdat. K 




El 


13274 


Idy *>sy 




HG 


13472 


inc x + 1 






EC 


13076 


sia SddOO 




KN 


13276 


lar Sbtxl4 


;slores3ope, sy 


AN 


13474 


bne Iin9 






GK 


13080 


cli 




GB 


13278 


Ida *<yo 




Gl 


13476 linl 1 


imp plol 


;plot tasi point 




GA 


13082 


fls 




EH 


13280 


Wy #>yo 




MB 


13478, 








CJ 


13064, 






KJ 


132B2 


fst Sba28 


,fac = (ac*yo = sytxl 


LE 


13480 swap 


Id" #3 


,swapx1-x2, y1-y2 




LA 


13086 scrdat 


= » 




MC 


13284 


jsr Sbfb4 


Jac = -sy*xl 


AP 


I3482swal 


Idy xi,x 






AA 


13088 


Byie S3b. $33. SOI ;upper 


DO 


13286 


Ida #<tmpt 




EL 


13484 


Ida x2,x 






JO 


13090 


byiG 13b,$38,S00 ower 


BE 


13288 


Idy #>tmp1 




CP 


13486 


Sia x1,x 






FJ 


13092 


,byle$ib,$i7,$03 .default 


GK 


13290 


|sr Sb867 


;fac = yl-sy'xl 


HG 


13488 


tya 






MJ 


13094; 






i Al 


13292 


Idx #<yo 




tP 


13490 


sia x2,x 






MN 


13096 Si^n 


(da MS55 


, Single dotted 


CI 


13294 


Idy #>yo 




LG 


13492 


dex 






FA 


13090 


.byiaS2c 




JJ 


13296 


jsr $bDd4 


, store yo 


CO 


13494 


bpl swal 






KE 


13100 dlin 


tda #S33 


; double dolled 


MO 


13298 Iln2 


Ida #<d). 




EK 


13496 


Its 






JA 


13102 


byte S2c 




NG 


13300 


Idy #>dJf 




AD 


13498: 








OK 


13104 nhn 


Ida iVStf 


;solid 


AB 


13302 


;sr Sbba2 


;dx to fac 


FJ 


135001320 


byte $90, $20, too, $00. 300 




NA 


13106 


byte S2c 




AG 


13304 


Isr $66 


.absftac) 


CK 


13502 t400 


byte $90, $48, too, £00, too 




KD 


13108 ql<n 


Ida #SOr 


,quad dotted 


DF 


13306 


Idx #<lnipf 




GD 


13504, 








KL 


13110 


sta dct 




FF 


13308 


Idy #>tmpf 




JE 


13506 com J. 


Ida #<f320 


.test X range 




OK 


13112, 






BJ 


13310 


jsr Sbbd4 


.store abs^dx) ' 


Bf 


13508 


Idy #>f320 






GB 


13114 plin 


jsr Sad8a 


.get xl arg 


BC 


13312 


Ida #<dy 




GB 


13510 


bne chek 






NM 


13116 


jsr Saefd 


;check comma 


PH 


13314 


Idy i*'>dy 




OD 


13512; 








GG 


13118 


jsr comn 


.check range 


CC 


13316 


isr Sbba2 


;dy to fac 


IF 


13514 corny 


Ida *<f4X 


.test y range 




EN 


13120 


Idx #<yo 




HM 


13318 


Isr S66 


,tac = absftac) 


LE 


13516 


Idy *>1400 






GN 


13122 


Idy *>/o 




FA 


13320 


Ida )*<impf 




EE 


13518; 








PG 


13124 


jsr Sbbd4 


.x1 toyolemp 


DG 


13322 


kly #>1rfiDf 




Dl 


I3520chek 


Idx t66 






CN 


13126 


jsr Sb7f7 


;conv TO integer 


MF 


13324 


jsr SbcSb 


,iest dy<dx 


HM 


13522 


bmi chel 






lA 


13128 


sly x1 




JE 


13326 


bmi Iin7 


,yes 


AD 


13524 


isr tbc5b 






MG 


13130 


sia Ml + 1 




NK 


13328 


Ida dy + 1 


;m1 of dy 


EO 


13526 


bpl che2 






GD 


13132 


jsr £ad8a 


;get yl arg 


HP 


^:^%'^ 


bmi Iin3 


;yl-y2<0 


HG 


13528 chel 


rfs 






PN 


13134 


;sr Saefd 


.check comma 


NO 


13332 


jsr swap 




AC 


13530che2 


jmp Sb248 


.'illegal qty' 




MH 


13136 


jsf corny 


.check range 


DC 


13334 Iin3 


Ida yl 


;v-yi 


CF 


13532, 








LK 


13138 


Idx #<impf 




HB 


13336 


sta y 




NP 


l3534dplol 


ror dot 


;ploT dotred line 




NK 


13140 


Idy Olmpf 




PP 


13338 


Ida yl + 1 




MC 


13536 


php 


, (rotate pattern 




ON 


13142 


jsf Sbbd4 


.yl totmpf temp 


CA 


13340 


sia y + 1 




NK 


13538 


rol dot 


, register don't 




EO 


13144 


jsr Sb7f7 


^conv to tnteger 


MM 


13342 


Ida dy 


icheck dy - 


Et 


13540 


pip 


, pbt if low 




LB 


13146 


sly yT 




KD 


13344 


bne lir>4 




CO 


13542 


ror dot 


; bit clear ) 




PH 


13146 


sta yl*l 




IL 


13346 


Ida xl 


,setx = xl 


HK 


13544 


bcc Chel 






FE 


13150 


|Si Sad8a 


. get x2 arg 


CC 


13348 


sta X 




OD 


13546 


jmp plol 






&P 


13152 


jst $ae1d 


;check comma 


KA 


13350 


Ida xn- 1 




CG 


13548; 








Kl 


13154 


jsr comx 


;check range 


NA 


13352 


sta x + 1 




JB 


I3550(^a 


isr get2 


;get x.y location 




FP 


13156 


Idx #<xo 




LG 


13354 


fmp Iin6 


;plOt point, exit 


Bl 


13552 


isr taeid 


.check comma 




HP 


13158 


Idy #>xo 




IL i 


13356 Iin4 


Idy y 


,COnv y to lloai 


PM 


13554 


jsr $ad9e 


,eval expression 




FJ 


13160 


jsr Sbbd4 


,x2 to xo temp 


GN 


13358 


Ida y + 1 




BO 


13556 


jsr $b6a3 


,mat<e descriplof 




LN 


13162 


jsr Sb7f7 




PF 


13360 


sty t63 




Dl 


13558 


sta len 


, store lengtti 




OC 


13164 


sty x2 




OP 


13362 


sta £62 




GN 


13560 chal 


Idy #0 






CJ 


13166 


Sta x2 + l 




CM 


13364 


klx #S90 




Bl 


13562 


Ida {$22),y 


get character 




FK 


13168 


Ida #<xo 




HL 


13366 


sec 




HM 


13564 


lax 






DA 


13170 


kJy #>xo 




HI 


13368 


jsr Sbc49 




IB 


13566 


and *$7f 






CA 


13172 


jsr Sbba2 


,recaH x2 


El 


13370 


Ida iKsy 




OG 


13568 


cmp #$20 






OK 


13174 


(da #<yo 




CO 


13372 


Wy #>sx 




GL 


13570 


txa 






MA 


13176 


kJy #>yo 




CL 


13374 


jsr $ba28 


;y*sji 


LA 


13572 


bcs cha6 






FO 


13178 


|Sr Sb850 


;mem-fac, xl-x2 


FH 


13376 


Ida #<xo 




FE 


13574 


Idy #9 


,# ol Ctrl chars 




FP 


13180 


Idx #<dx 




DN 


13378 


Idy #>xo 




AB 


13576cha2 


cjnp ctris.y 






HP 


13182 


Idy #>dx 




FK 


13380 


jSf Eb867 


,xo + y-sx = y 


AH 


13578 


beq cha3 


,ctrl chat dent 




OA 


13184 


jsr Sbbd4 


; store dx 


PL 


13382 


;sr Sb&49 


.add 5 


HM 


13580 


dey 






NG 


13186 


jsr £ad8a 


get y2 arg 


EN 


13384 


JSF tb7f7 


conv to integer 


AB 


13582 


bpl cha2 







TTW IIOWQClOT 
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IB 


13584 


brrn cha4 


, unknown clrl char 


ON 


13782 


Ida x + t ; 


lest X < 


CM 


13980 


adc tmp3 ; + 1 


CB 


I3586cha3 


tya 


;aei routine addr 


NN 


13784 


bmi chal 4 


yas 


KH 


13983 


sta tmp3 .save address 


PL 


13588 


asl 


' ^v 


OP 


13786 cha1 3 


Ida me ; 


subtract $01 40 


GK 


13984 


Idy #5 ;byte counter 


BO 


13590 


tax 




NC 


13788 


sfa imp 


until X is neg 


AP 


13986 schl 


Ida tmp3 ;restore address 


HG 


13592 


Ida ccrtns.n 




KD 


13790 


kda MScO 




Ml 


13988 


tax :addr lo x 


IH 


13594 


sta t2 




OE 


13792 


isr xoff2 


x = x-140 


NJ 


13990 


inc tmp3 .incraddr 


FC 


13596 


Ida ccrlns + 1 


,1 


JC 


13794 


bpl chal 3 ; 


repeat while pos 


CG 


13992 


Ida scXhX ;gef da[at:>yte 


OH 


13598 


^a t3 




HC 


13796 chal4 


Ida #1 ; 


add $140 


NP 


13994 


Idx its ;bit counter 


PF 


13600 


jsr ctiaS 




OE 


13798 


sta tmp ; 


until X IS pos 


LD 


13996 sch2 


asl ^bit to carry 


BA 


13602 Cha4 


imp cha20 




HB 


13800 


Ida #$40 




FJ 


1399B 


pha ,save byie 


Al 


13604 cha5 


imp (12) 




GF 


13802 


jsr "off2 ; 


x = x+140 


IH 


14000 


bcc sch5 ;nopiol 


MJ 


13606, 


J ' 




ED 


13804 


bmi chal 4 


repeat while neg 


01 


14002 


Ida M + 1 ;iest X in bounds 


BH 


I360ecfrls 


byteSl2,S92.Ilf,S9e,l90 


IP 


13806 


Ida y+1 ; 


test y<0 


AN 


14004 


beq sch3 , yes 


JD 


13610 


.byteS05,t11.I!d,S9l.S9d 


HP 


13808 


bmi chal 6 


yes 


GH 


14006 


Ida X 


CK 


13612. 






EC 


13810 chal 5 


Ida #$fe 


subtract $0190 


MC 


14008 


cmp #$40 


IH 


13614 ccrlns 


word ccr.ccrK.cd,ccu,cce 


HE 


13812 


sta tmp ; 


until y is neg 


MJ 


14010 


bcs sch5 ; no 


HI 


13616 


word ccex,ccdn,ccri,ccup,cc[i 


OC 


13814 


Ida #$70 




MF 


14012 sch3 


Ida y+l ,iestyin bounds 


IK 


13618; 






PH 


13816 


jar yoH2 : 


y = y-190 


ON 


14014 


beq sch4 , yes 


LC 


13620ccr 


Ida #4 


.fever seen 


IF 


13818 


bpl chal5 


repeal while neg 


Bl 


14016 


Ida y 


BB 


13622 


byte $2c 




HB 


13820 chal 6 


Ida #1 ; 


add $0190 


FE 


14018 


cmp #$90 


KH 


I3624ccl 


Ida #8 


;upperflQwer case 


NF 


13822 


sta tmp 


until y ^s pos 


GK 


14020 


bcs schS , no 


JD 


13626 


Ota c^iolt 




OD 


13834 


Ida #$90 




OJ 


14022 sch4 


fxa .save counters 


KE 


13628 


bne ccul 




HI 


13B26 


jsr yoff2 


y = y^-l90 


EE 


14024 


i^B. 


EL 


13630. 






OE 


13826 


bmi chats 


repeat while neg 


Bl 


1A036 


lya 


PH 


I3632ccrx 


Ida #Sdb 


.reueiseoff 


FB 


13830 


txa 


restore bit ctr 


]E 


14028 


pha 


NB 


13634 


byte S2c 




JN 


13832 


pha 


and save 


DC 


14030 


jsr plol ;plotx,y 


JK 


13636 ecu 


Ida #$d7 


; u ppercase/graph ics 


AP 


13834 


isr plo1 


plot Single point 


JK 


14032 


pla .restore counters 


KO 


13638 


and choft 




PO 


13836 


pla 


restore bit ctr 


BK 


14034 


ta^ 


AO 


I3640ccul 


sia eh off 




JN 


13838 


tax 




MF 


14036 


pla 


GD 


13642 


rts 




JE 


13840 cha1 7 


dex 




BK 


14038 


tax 


CM 


13644 






NG 


13842 


bmi chal 8 


finished byie 


Jl 


14040sch5 


Ida #1 


BK 


1 3646 cce 


Ida #Stf 


, erase on 


LP 


13844 


Ida #1 


set offset 


MP 


14043 


jsr xoff ;x = x + l 


LC 


13646 


byte$2e 




ID 


13846 


isr xoff 


x-x + l 


PL 


14044 


pla , restore byte 


LE 


13650 ccex 


Ida KO 


; erase off 


AJ 


13648 


imp chal 2 


.get next bit 


AC 


14046 


dax ,c*ecr bit counter 


MC 


13652 


sla erflg 




MA 


13850 chal8 


pla 


iwaste char (done) 


IF 


14048 


bne sch2 ,nexl bit 


CE 


13654 


rts 




HN 


13852 


pia 


byte counter 


PM 


14050 


Ida #1 


CM 


13656, 






NO 


13854 


tay 




HA 


14052 


jsr yoft ;y = y + 1 


CE 


13658 ccdn 


Ida #$18 


; cursor down 


LN 


13856 


dey 




DJ 


14054 


Ida #$fb 


HD 


13660 


byie S2c 




EE 


13858 


bmi chal 9 


ifimshed char 


DB 


14056 


(sr xofl ;x = x-5 


AL 


13662 ecu p 


Ida #8 


, cursor up 


DJ 


13860 


Ida #Sf9 


,set offset 


IN 


14058 


day ;byte counter 


LH 


13664 


imp yotf 


;add offset 


FF 


13862 


jsr xoff 


,x-x-7 


KC 


14060 


bne schl ;nextbyte 


JN 


13666, 






PA 


13864 


Ida #1 


;set offset 


KN 


14062 


rta 


GO 


I366eccr! 


Ida #8 


;cursor right 


DF 


13866 


jsr yoff 


;y = y+1 1 


GG 


14064; 




BE 


13670 


byte S2c 




HN 


13868 


|mp chall 


,gei next byte 


Al 


1 4066 ,c^ars - 5 left bits of 5 bytes 


BG 


13672 celt 


Ida #Sf8 


:cursor left 


FH 


13870 chal 9 


Ida #1 


,set oltset 


NU 


14068 sex 


K * 


El 


13674 


imp Kof 


,add offset 


OF 


13872 


fsr xoff 


;x = x + 1 


AG 


14070 byte 


$88,S50,S20,$50,$8B ;5x5 x 


CO 


13676, 


f "^ 




IG ! 


13874 cha20 


inc $22 


;inc String ptr 


BB 


14072 byfeE20,$2O.$fc. $20, $20 ;5x5 + 


GG 


13678 chae 


and #SeO 


;reiain bits 5-7 


FE . 


13876 


bne cha21 




GP 


14074 byleSfc, $e0.$Be,£ee,$fc ,5x5sc;r 


GJ 


13680 


emp #$60 


,leslS60-$7f 


PN 


13878 


inc $23 




FB 


14076 byte $20, $50, $88. $50. $20 ,5x5dmd 


KC 


136B2 


bne cha7 


;io 


KA 


13880cha21 


dec len 


;decrement length 


AB 


14078 byte$OO.$5O,$20S5O, £00 ;3x3 x 


\c 


13684 


txa 




BG 


138B2 


beq cha22 




CL 


14080 bytG$00.$20,$70.S20,E00 ;3x3 + 


hP 


13686 


sec 




AC 


13864 


jmp chal 


;get next char 


EP 


14082 byte$00,$70,$50,$7O,SOO ,3x3sqr 


BL 


13688 


?*>c #$20 




PM 


13866 cha22 


ns 




JN 


14084 byie 


$00 , $30 , $50, $20 $00 , 3x3dmd 


FE 


13690 


tax 




GL 


13888, 






LM 


14086 byie 


$fc, Sfc, $tc. $lc, $lc ;5x5sqr 


FF 


13692 


bne cha9 


, branch always 


11 


13890 xolf 


pha 


;pusb offset 


EH 


14088 byie $20, $70. $fc, $70.$20 ;5x5dmd 


FO 


13694 cha7 


cmp #S80 


,subtf $40 for 


OP 


13892 


cmp#S80 


,tesi negative 


EA 


1409O.byte$OO,$70,$70,$70,$00 ,3x3sqr 


FP 


13696 


and #S40 


; either b6 or b7 


DH 


13894 


bcs xofl 


; yes 


JO 


14092 .byte$00,E20,$70,$20.$00 ,3x3dmd 


BF 


13698 


bee chaS 


,set 


LE 


13896 


Ida ftO 


;high byte 


El 


14094- 




KP 


13700 


adc #S3f 




FC 


13898 


byteS^c 




BG 


I4096sba 


Idx #$55 isingle dot vert 


OH 


13702 cha8 


sfa 12 




PE 


13900 xofl 


Ida #$ff 


;high byie Sff 


•Nl 


1409B 


Ida #$aa , single line horiz 


JA 


13704 


sec 




CN 


13902 


sta tmp 




LP 


14100 


bne nbl 


CD 


13706 


ixa 




IN 


13904 


pla 




Ml 


14102; 




ML 


13706 


sbc \2 




lU 


13906. 






DB 


14104 dba 


Idx #$33 ; double dot vert 


JF 


13710 


lax 




FM 


13908 xoff 2 


dc 


.366 offset to X 


NH 


14106 


Ida #$99 , double line horiz 


GB 


13712 cha9 


Ida #0 




lA 


13910 


Bbc X 




DA 


14108 


bne nbl 


MB 


13714 


sta Imp 


; clear tor rotate 


GF 


13912 


sta X 




FJ 


14110; 




EO 


13716 


txa 


;get scr code 


AK 


13914 


Ida tmp 




IF 


14112 nba 


Ida #$ff ;no pattern 


KB 


13718 


Idx #3 


,times 8 


FP 


13916 


adc X + 1 




NO 


14114 


tax 


GO 


13730 chalO 


1 asl 




DE 


139T6 


sta x + l 




EF 


141l6nbl 


stx dot 


OE 


13722 


rol tmp 


; save carry 


ME 


13930 


ns 




NN 


14118 


sta 1dot 


DF 


13724 


dex 




IN 


13922, 






OJ 


14130; 




KK 


13726 


bne chalO 




fylK 


13924yoll 


pha 


;push oflsel 


PC 


14122 bba 


Ida dot .save y pattern 


EP 


13728 


sta imp4 




AC 


13926 


cmp #$80 


,lesl negative 


Mh 


14124 


Sta Imp3 


OB 


13730 


Ida choff 


.scr code offset 


GJ 


13938 


bcs yofl 


;yes 


JD 


14126 


Ida Idot ; save X pattern 


KB 


13732 


dc 




NG 


13930 


Ida #0 


;high byte 


MK 


14128 


pha 


Ki 


13734 


adc tmp 


,add htgh offset 


HE 


13932 


byte $2c 




EB 


14130 


jsr get2 ,getx1,yl 


HK 


13736 


sta tmp4 + 1 


,hibyteonsai 


DH 


13934 y of 1 


Ida #$tf 


;high byte Sff 


MH 


14132 


Sty yl ;store parameters 


JB 


13738 


kja #$t9 


;sei offset 


EP 


13936 


sta imp 




JF 


14134 


sta yi + 1 


CO 


13740 


jsf yoff 


,y„y„7 


KP 


13938 


pla 




IP 


14136 


Ida X 


El 


13742 


Idy #7 


;char byie counter 


KO 


13940. 






KJ 


14138 


sta xl 


FB 


13744 chall 


sei 


;bk>ck irierrupts 


KO 


13942 yoff 2 


cic 


;add offset toy 


DO 


14140 


lOa x + l 


PC 


13746 


Ida 1 


;i/0 ram out 


LC 


13944 


adc y 




AG 


14142 


sta xl + 1 


FN 


1374S 


and #SfD 




JH 


13946 


sta y 




BN 


14144 


jsr Saetd ;check comma 


Nl 


13750 


Sla 1 




CM 


13948 


Ida tmp 




HC 


14146 


isr gei2 gel x2,y3 


Fl 


13752 


Ida (tmp4),y 




IB 


13950 


adc y + l 




El 


14148 


Sty y2 , storey parameter 


OL 


13754 


1 r F r 

tax 


:&ave char byte 


GG 


13952 


sta y+l 




OD 


14150 


sta y2+ 1 ;x2saved in x' 


JC 


13756 


kda 1 


;i/o ram in 


OG 


13954 


rts 




LK 


14152 bal 


Idy y2 ,inil y countdown 


flK 


13758 


era #4 




KP 


13956. 






BD 


14154 


Ida y2 + l 


HJ 


13760 


Sta 1' 




AC 


I3958 5cha 


isr gei2 


;getx, y 


LK 


14156 


sty y 


EK 


13762 


eft 


.enable interrupts 


JB 


13960 


jsr $aefd 


, check comma 


ED 


14158 


sta y + 1 


00 


13764 


tya 


:save byte courier 


JC 


13962 


Ida #$fe 


,set offset 


HO 


14160 


Ida tmp3 irestore y patiern 


CE 


13766 


ph8 


r 


BL 


13964 


isr xoff 


;x-x-2 


GN 


14162 


sta dot 


FL 


13768 


txa 


;save char byte 


NC 


13966 


Ida #$fe 


;sei offset 


DH 


14164 ba2 


sec , test outer (x) 


GE 


13770 


pha 




fvlL 


13968 


jsr yoff 


,y = y-2 


JD 


14166 


Ida X , loop complete 


PO 


13772 


Idx #7 


:char bit counter 


IP 


13970 


jsr Jtj79e 


;char # to .x 


Kl 


14166 


sbc xl 


MK 


I3774chal2 pla 


:rstr char tiyte 


IE 


13972 


txa 




BA 


14170 


Ida x + 1 


OJ 


13776 


asl 


;biT to carry 


MP 


13974 


sta Imp3 


.save - mult x 5 


AF 


14172 


sbc xl + 1 


HI 


13778 


pha 


■save char byte 


EM 


13976 


asl 


;x2 


CO 


14174 


bcc baS ;yss 


1 CL \ 137B0 


bee cha17 


;skipirbil = 


GM 


13978 


asl 


;x2 


LA 1 U176 


ror Idot ;rotaiexpaitern 


1 Tfi# Tiovwocior 






20 
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DK , 


T4t7e 


php 


; save low bit 


LB 


14376 


bne gd6 




MN 


14574 


Ida #Se0 ;sef to low scrn 


GD 


141B0 


rol IdOt 




oe 


14376 gde 


jsr circhn 


; close channel 


NE 


14576 


Sia tmp + 1 


ON 


141B2 


Pto 


; (ecovef low bit 


LB 


14380 


Ida »2 




ND 


14578 


Idy #0 


JO 


141&4 


ror Idot 


, complete rotation 


Jl 


14382 


imp close 




8B 


14580 


beq gpr3 .brar>cfi always 


OG 


14186 


bcc ba4 


;no dfawi(b<l = 


GK 


14384; 






JD 


14582 gpr 10 


Idx #3 .restore pnnler 


MG 


14188 ba3 


sec 


;test inner (y) 


AD 


14386 gd9 


jsr chkrn 


;open rnpul channel 


GE 


14584 gpri 1 


Ida plrf,K ;cr. line Space 


CF 


14190 


Ida y 


; loop complele 


BF 


14386 


jsr gelirr 


;gel lb height 


BN 


14586 


|5r cl>rout 


DK 


14192 


sbc yl 




GM 


14390 


sta hite 




DL 


14588 


dex 


KB 


14194 


Ida y + 1 




01 


14392 


tay 


,1b addr counter 


EH 


14590 


bpl gpri 1 


JG 


14196 


sbc yl + 1 




EO 


14394 


Ida $90 


,test status 


BH 


14592 gpri 2 


jsj clrchn ;close channel 


MP 


14198 


bcc ba4 


,yas 


OO 


14396 


bne gd8 


; no good 


IP 


14594 


Ida *t3 Me If 


HL 


14200 


jsr dpiot 


, draw if pall bit = l 


NG 


14398 


jsr getirt 


;get ub height 


NH 


14596 


jmp close ;closefile 


FD 


14202 


Ida ffSff 


.countdown y 


MN 


14400 


sta hite + 1 




MH 


14598; 




CD 


14204 


jsr yoff 




OL 


14402 


sta tmp + 1 


.hb addr counter 


DB 


14600: prt CO 


nditioning data strings 


JP 


14206 


bcs ba3 


, CO means y--! 


KH 


14404 gdlO 


jsr getin 


;byte from disk 


JK 


14602 ptrs 


^ « 


DG 


14208 ba4 


Ida #Stt 


.countdown a 


AA 


14406 


sta (tmp),y 


;SlOre 


BH 


14604 


byte SOO.S0d.$44,$1 b.$0a,$4 1 ,$1 b 


HD 


14210 


|Sr coft 




CP 


14408 


Ida S90 


;test status 


MK 


1 4606 plrr 


= * 


FP 


14212 


bcs bai 


;cc means x = -l 


MP 


14410 


bne gdS 


: no good 


KL 


14608 


byte SOI ,S40.$4b.S1b.S09.S0d 


JM 


14214 ba5 


pla 


; restore x panern 


CP 


14412 


iny 


:bump addr counter 


MJ 


14610 ptrf 


.byte$32.Elb,S0d 


PD 


14218 


sia Idol 




CP 


14414 


bne gdtO 




Kl 


14612; 




GH 


14218 


rta 




KJ 


T4416 


inc Imp + 1 


,bump addr high 


OL 


I5000lma 


jsr Sb79e set left margin 


CA 


14220, 






BJ 


14418 


beq gd6 


,done 


IM 


15002 


six ptrs+1 ; for printing 


AB 


14222gsav 


Id- #0 


;savelodiskllag 


DH 


■ 14420 


Ida imp + 1 




MD 


15004 Imal 


rts 


OB 


14224 


Ida #'w- 


,'wrile' 


LF 


14422 


cmp #ScO 


.top of upper bloci^ 


EB 


15006; 




JD 


14226 


bne gdi 


.branch always 


MP 


14424 


bne gdiO 




HA 


I500esiz 


jsr JadSa .gel graph height 


KA 


14228; 






PD 


14426 


Ida #$eO 


:sel bottom lower 


OM 


15010 


jsr comy .check range 


HD 


14230gloa 


idK t^^ 


.load frm disk flag 


JL 


14428 


sta tmp + 1 




AD 


1501? 


jsr Sb7f7 .conv to integer 


PJ 


14232 


Ida t'r" 


/read' 


PN 


14430 


bne gd1 


■branch always 


EK 


15014 


sty tmpS ;save height 


AB 


14234, 






GN 


1 14432, 






EA 


15016 


sia tmp3 + l 


DL 


14236 ad 1 


Sia gnsuf + 5 




IJ 


! 14434 gfnam 


= * 




NA 


15018 


Idx #SaO ;mav height 


GE 


14238 


stM Imp2 




ED 


14436 


asc ■00123456789abcd.g,s,w' 


EK 


15020 


six hiie + 1 


FG 


14240 


jsr $3d9e 


,eval filename 


10 


14430 gnsuf 


asc ".g,s,w' 




MM 


15022 szl 


sec 


PI 


14242 


jSr $b6a3 


;make descriptor 


ON 


14440, 






NO 


15024 


Ida #$6f ;lesthef9ht>367 


HE 


14244 


cmp#SOt 


;testten>M 


NL 


14442 gprin 


Ida #0 


;no name 


EN 


15026 


sbc lmp3 


MD 


14246 


bcc gd2 


:no 


NC 


14444 


isr setnam 




BK 


15028 


Ida #1 


KN 


14248 


Ida #SOe 


; maxlen 


EG 


14446 


Ida ^3 


;file# 


EO 


15030 


sbc tmpS + 1 


FH 


14250 gd2 


pha 


;save len 


NL 


14448 


Idx ttA 


; printer 


NK 


15032 


bmi Ima1 ; finished 


Gl 


14252 


tax 


icounler 


DO 


14450 


Idy *Jff 


;no secondary addr 


DL 


15034 


Cic .tmp3 = imp3 + 32 


JP 


14254 


Idy #0 




OD 


14452 


jsr setifs 




JD 


15036 


Ida #$20 ,£4 char heights) 


AM 


14256 gd3 


Ida (S22),y 


,gel char 


KO 


14454 


pr Open 




CM' 


15038 


adc tmp3 


IG 


14258 


sia gfnam + ^ 


i.^opy to buffer 


AF 


14456 


bcc gpri 


;no error 


AB 


15040 


sia tmp3 


EJ 


14260 


iny 




lA 


14458 


imp gpri 2 




NK 


15042 


Ida #0 


NG 


T4262 


dex 




FM 


14460 gpri 


[d>i #3 


;ti[e# 


EN 


15044 


adc imp3 + 1 


CK 


14264 


bne gd3 




FG 


14462 


jsr chkout 


.open output chan 


CC 


15046 


sta imp3 + 1 


EE 


14266 


Idx #0 


,add '.g.s.r/w' 


. EF 


14464 


Idx #6 


.count? chars 


AB 


15048 


cic ;hile = hiie + 5*e56 


Al 


I4268gd4 


Ida gnsutx 




U\ 


14466gpf2 


Ida ptrs.x 


igetchar 


DM 


15050 


Ida ^5 ,(4charheghts} 


CO 


14270 


s^a gfnam + 2.y 


FL 


14466 


jsr chroul 


;lo pnnler 


MB 


15052 


adc hiie + l 


AK 


14272 


iny 




ND 


14470 


det 




GC 


15054 


cmp *ScO .(esi off SaOOO scr 


GJ 


14274 


iriK 




BN 


14472 


bpl gpr2 




OJ 


15056 


bcc sz2 ; no 


JC 


14276 


cpx #6 




BF 


14474 


Ida #0 


;set Imp to slarl 


AM 


15058 


cmp #SeO ;iesi on SeOOO scr 


DL 


14278 


bne gd4 




AB 


14476 


sta Imp 




CN 


15060 


bcs £^2 ,yes 


GB 


14280 


pla 


;get length 


MO 


14478 


Ida hite-t^l 




FO 


15062 


era #20 .advance pointer 


AE 


14282 


cic 




NO 


14490 


sia tmp + 1 




LM 


15064 sz2 


sta hile ^ 1 


FO 


14284 


adc #8 


adjust 


LM 


14482 


Idy hite 


;lb addr counter 


JL 


15066 


bne szl ; branch always 


PF 


14286 


Idx #<glnam 




HC 


14484 gpr3 


jdx #5 


,sel prt to nxt ro* 


CF 


15068; 




BG 


14288 


Idy #>gfnam 




DO 


144B6gpr4 


Ida ptrr.x 


;send ct, hi. and 


KA 


15070 eras 


jsr $b79e .condition 


DJ 


14290 


jsr selnam 




AJ 


144BB 


|Sr chroul 


, 320 dOLS 


BA 


15072 


txa , erase flag 


AD 


14292 


Ida #2 


;i# 


BF 


14490 


dex 




JO 


15074 


beq erai 


OD 


14294 


lay 


:sec addr 


NO 


14492 


bpl gpr4 




NP 


15076 


Idx #Sff 


DF 


14296 


Idx #8 


; device # > 


GM 


14494 


Ida #S28 


; column counter 


PM 


15078 era 1 


Six ertig 


EK 


14298 


isr setlfs 


1 


AP 


14496 


sia fmp3 




EN 


15080 


rLs 


AF 


14300 


jsr open 


1 


OH 


14498gpr5 


Idx *7 


,gel 8 Jines data 


AG 


15062, 




FK 


14302 


bcc gd5 




ND 


14500 


sei 




CK 


15084 patt 


jsr Ib79e ;get line pattern 


01 


14304 


cmp #4 


;Lesi tilenotlound 


BH 


14502 


Ida mc 


;swilch out roms 


OM 


15086 


stx dol 


BM 


14306 


bne gd8 


; no - real error 


JJ 


14504 


and 1 




Bl 


15088 


jsr Saeld ;check corrima 


BF 


14308 gd5 


Idy #0 


;dr save Star taddT 


Bl 


14506 


Sia 1 




IN 


15090 


isr Sb79e ;get bar pattern 


KM 


14310 


sty Imp 




EE 


14508gpr6 


Ida (imp).y 


;9elbyle 


HA 


15092 


stx Idot 


ID 


14312 


Idx §2 


.rileV 


GA 


14510 


sta buff,j< 


; to buffer 


CO 


15094 


rls 


LG 


14314 


Ida tmp2 


; save/load tlag 


AJ 


14512 


iny 




OG 


15096; 




fO 


14316 


bne gd9 




NO 


14514 


bne gpr7 




EP 


15098x1 


word S0040 


FN 


14318 


(sr chkouT 


,open output chan 


DP 


14516 


inc imp + 1 




IP 


15100 yl 


word $0040 


AN 


14320 


Ida hile 


.graph height 


KG 


14518 gpr? 


de« 




HA 


15102x2 


word $0080 


IE 


14322 


tay 


;lb addr counter 


BB 


14520 


bpl gpr6 




LA 


15104 y2 


word $0080 


LM 


14324 


jsr chfout 




HI 


14522 


Ida #3 


;switch in roms 


OB 


15106 dx 


- = - + 5 


EF 


14326 


Ida hite + l 




DK 


14524 


era 1 




DC 


15T08dy 


.-. + 5 


PM 


14328 


isr crtroul 




FJ 


14526 


sta 1 




AE 


15110SX 


• = p + 5 


JG 


I4330gd6 


sia tmp + 1 


.hb addr counter 


OE 


14528 


di 




FE 


I5112sy 


. = .*5 


KG 


14332 gd7 


sei 


idisable irq 


HL 


14530 


lya 


;save addr lo 


ED 


15114X 


word tooeo 


LF 


14334 


Ida 1 


iSwiLch out roms 


A£ 


14532 


pha 




ID 


15116V 


wordS0080 


DC 


14336 


and #Sfc 




AN 


14534 


Idy #7 


;byle counter 


FF 


I5ll8tmpf 


- = . + 5 


JN 


14338 


sta 1 




NB 


14536 QprS 


Idx *7 


;bil counter 


JD 


15120x0 


- = • +5 


EK 


14340 


kJa flrnp),v 


;gel byte to save 


NB 


1453Sgpr9 


rd buff,x 


;bit to carry 


ND 


15122 yo 


- = - + 5 


CI 


14342 


phB 




KD 


14540 


rd 


; bit to a 


HE 


15124 ty 


- = - + 2 


AF 


14344 


Ida 1 


; switch in roms 


Fl 


14542 


dex 




PD 


15126 bitp 


--- + 1 


MO 


14346 


Dra *f3 




FD 


14544 


bpl gpr9 




CP 


15128 row 


- = - + 1 


DO 


14348 


sta 1 




DA 


14546 


|Sr chroul 


.to printer 


LE 


15130 rasi 


. = . + 1 


AB 


14350 


di 


;enabte irq 


PI 


14548 


dey 




MK 


15132 cd 


- = - + 1 


IJ 


14352 


put 




HD 


14550 


bpl gpr8 




HG 


15134 dot 


byte SH 


PI 


14354 


]sr ch rout 


.output byte 


Ol 


14552 


pla 


.restore addr lo 


CE 


15136 Idol 


byteSfl 


EC 


14356 


Ida S90 


;check status 


JK 


14554 


tay 




OP 


1513Baddr 


- = -+2 


JA 


14356 


bne gdS 


, exit condition 


NF 


14S56 


dec tmp3 


;test row done 


IB 


T5140erflg 


byle $00 


IP 


14360 


Iny 




FN 


145Se 


bne gpr5 


;no 


GF 


15142 tx 


- = - + 2 


AB 


14362 


bne gd7 




OG 


14560 


Cpy #S40 


;iest screen done 


BJ 


15144 tv2 


- = - + 2 


LF 


14364 


inc tmp + 1 




BH 


14562 


bne gpr3 


;no 


KO 


15146 hiie 


word SaOOO 


MC 


14366 


beq 9d8 




DA 


14564 


Ida tmp + 1 




FE 


15148 buff 


- = . + 8 


PD 


14368 


Ida tmp + 1 




CP 


14566 


cmp* Iff 


;Low scr bottom 


AD 


15150 choff 


byieSdO 


HC 


14370 


cmp*$c0 


.top of upper block 


EK 


14568 


beq gprlO 


.restore prt 


JD 


15152 len 


byte Si 


KB 
1 KF 


14372 
1 14374 


bne gd7 
Ua MSeO 


.set lower block 


ED 
HB 


14570 
14572 


cmp *Shl 
bne gpf3 


upper scr bottom 


IK 


15154, 
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EXPO 86 

Vancouver, British Columbia 

Commodore and IBM head-to-head 

by Ian Adam, P.Eng., Vancouver, BC. 



Abstract 



Any World's Fair promises a unique 
blend ol fun and education, and Expo 
86 being held in Vancouver unlil Octo- 
ber of \ 986 is no exception. The World's 
Fair theme of Transportation and Com- 
munication offers a number of items of 
interest lo computerists. Computers are 
used for everything from running [he 
transportation system, to coordinating 
displays and finding lost children. 

Where there are computers there is the 
Transactor, and your reporter selected 
two items of particular interest. The 
World's Fair visitor information system 
is a useful package of applied IBM tech- 
nology, each terminal combining a per- 
sonal computer with touch-screen 
technology and an interactive videodisc 
to create a friendly and useful informa- 
tion kiosk. Not to be outdone, Commo- 
dore is well represented with the Amiga 
Studio Theatre, a sophisticated package 
of arts and computers. 




Expo Centre, one of tfie theme pavilions at Expo 86. Its displays include the Futures 
Theatre, in which the audience can vote on issues affecting the future using illuminated 
buttons in Ihe arms of the seats. Background: the Ontario pavilion includes a miniature 

replica of Niagara Falls. 



A Trip To EXPO 



Now maybe Tm giving away a lot about 
my age, but I still harbour many fond 
memories of a Irip to Montreatin 1967 

to see Man and his World, the famed 
Expo '67. Simply the mention of a 
World's Fair still evokes such a wide 
range of images and expectations for 
me. On the one hand, like any fair it 
suggests an occasion for people to 
gather for a good tiipe: the proverbial 
fun and games, but in an unusual, ex- 
otic context. At the same time, how- 
ever, a World's Fair promises so much 
more. By virtue of its international na- 
ture, it represents an opportunity for 
each country's best ideas and products 
to be brought to one place, and put on 
display for all the world to see. 

Montreal's fair lived up to all of those 
expectations, and did so admirably. It 
combined fun and world-scale informa- 
tion into an overall package that 
"clicked'- So it was with some mixed 
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The Canada Pavilion, with its five-sailed fabric roof, located on a pier jutting out into 
Vancouver Harbour. The rounded portion to the right contains the Amiga Studio Theatre. 

Foreground: the Seabus, a harbour ferry. 
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feelings thai I first heard of the plans for a World's Fair in Vancouver. 
Yes, the mention of a Fair brougfit back ail tfiose great memories, and 
what could f>e more convenient than right here in Vancouver? At the 
same time, however Montreal had set such a high standard away 
back in 1967, that 1 feared Expo 86 might somehow tarnish the 
concept by not quite living up to that image. After all, there have been 
some recent disappointments in the Exposition arena. 

However, these fears turned out to be groundless. Expo 86 has been 
able to stand on its own two feet, and is extending the Canadian 
reputation established in Montreal for putting on a good show. Since 
this will probably be the last fair of the century in North America, [ 
thought a bit about the aspects that are contributing to its success. 

First, physically, it has a beautiful waterfront site in downtown 
Vancouver, very much reminiscent of Montreal's island fair. With 
ocean and harbour alongside, set against a backdrop of city and 
mountains, the site alone is enough to draw the attention of one's 
psyche away from the humdrum of day-to-day life, and open up a 
broader vision of the world. And that, remember, is one of the primary 
roles of a World's Fair, 



a multi-media presentation. These votes are then tallied by computer, 
and reported back to the audience- 
Contributions to a fair can take many forms, ranging from formal 
national pavilions to the 'official supplier' of everything from soup to 
nuts and bolts (the latter having been developed ad infinitum at the 
Los Angeles Olympics). At Expo 86, two computer companies have 
made substantial contributions. IBM Canada and Commodore. While 
both demonstrate new installations of their equipment, the contrast 
between the two applications is fascinating. 

Information System: 

IBM's contribution takes the form of applied big-blue technology. 
Although 1 didnH go to the fair looking for IBM material to document, 1 
felt the system was so fascinating that you might like a peek at it. The 
company has developed and is supplying a computerized visitor 
information system that will assist fair-goers in finding their way 
about the site. True to the tradition of World's Fairs, this system offers 
a demonstration of new technology, while at the same lime it is a 
source of help and entertainment for the user. 



Second, the fair has attracted considerable international attention. 
Some 52 countries are represented at Expo 86, along with a dozen 
provinces and states, better than 40 corporate participants, and a 
number of special theme pavilions. This alone is sufficient to ensure a 
wide variety of exhibits and a good level of interaction between 
nations. 

Third, the World's Fair theme of Transportation and Communications 
is particularly topical, and offers ample latitude for exploration of high 
technology. 

Vancouver is a city that was founded on transportation, being the 
western terminus of the Canadian railways, and the second busiest 
port in North America (eclipsed only by New York). 1986 is the 100th 
anniversary of the City, as well as of the transcontinental railway. 
1986 is also a time when communication is rapidly taking over many 
of the functions of transportation, promising to provide an alternative 
to many types of personal travel. Computers will be a big part of the 
communications revolution, just as they have played a major role in 
transportation. As a result, the fair's theme offers a great deal of 
material of interest to all computerists. 

A World's Fair should naturally demonstrate the leading edge of 
technology, and every memorable fair has had its own particular 
specialization, an area of technology where notable advances were 
brought forward and identified. At Montreal, much of the exploratory 
work was devoted to film, and the results of that effort are still with us 
today: giant screens, split-screen images, and all-enveloping film 
experiences have become familiar elements of our society, all traced 
back to the Montreal fair. The 1985 exhibition in Tsukuba, Japan, was 
devoted specifically to the theme of technology and Its impacts. 
Robots that drew portraits, spun tops, and played sheet music were 
the most memorable exhibits. 

In Vancouver, a major legacy will be in computers, and Expo 86 may 
well be known as the fair where computers came into their own, both 
running the fair and relating to the visitors. In the theme area of 
transportation, the rapid transit line to carry you to the site is fully 
computerized, requiring no driver. Even the City's traffic signals are 
coordinated by a new computer system. In the field of communica- 
tions, there is the Futures Theatre, in which illuminated buttons built 
into the arms of the chairs allow the audience to vote on issues during 




A typical IBM Information System kiosk containing 7 touch- 
screen terminals alf coordinated by a master PC/AT. 

At first glance, the system could pass for a video game, with the 
familiar colour monitor mounted in a cabinet. Faced with a series of 
menus, the user simply touches the screen in order to select the 
information desired. After a short pause, videodisc footage of the 
selected item is shown on the screen. This combination - a sort of 
'Dirk the Daring goes to the fair' - is particularly weil-suited to the 
application, and offers trouble-free access to the computer, even for 
the casual, non-computer-oriented user. Behind this seemingly sim- 
ple facade, however, lurks an impressive collection of the slate of the 
art in interactive computing technology. 

The touch screen is an essential element of the overall concept, 
providing trouble-free input from the user A standard keyboard was 
considered for input, but raises the obvious concerns of intimidating 
users not familiar with computers, as well as the potential for damage 
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from spills, chewing gum, andsoon. Agummed-up keyboard would 
mean a non-functional information system. 

Similarly, the laser videodisc is critical to the overall plan, providing 
television-quality moving images, and contributing to the overall 
system image. The videodisc is a standard consumer item, requiring 
only that the data be addressable by track. There is no program code 
on the disc. 




Intermingled with the video footage are screens of computer graphics, 
used primarily for menus for the touch screen and for some elemen- 
tary animation (for example, lo show amusement rides). Even a 20- 
Meg hard disk has its limitations of speed and capacity (at up to 1 12K 
for a digitized photo), so this animation will never be mistaken for 
videodisc imagery. Nonetheless, it is an additional feature that intro- 
duces some variety. The system also has the capability to overlay 
computer graphics onto the output of the videodisc, for example to 
superimpose current messages about pavilion conditions or special 
events. 

Quite naturally, IBM has used the PC/AT as the heart of each display. 
IBM's representatives indicated that the system could as easily run on 
an XT or PC, but the ATs improyed speed and other capabilities 
provide for a superior user interface. (One can't help but wonder what 
sort of system could have been created if the heart were Amiga gold 
instead of blue!) The consoles are arranged in dusters of seven 



screens. Each cluster, or kiosk, is linked internally by PCNetwork to 
its master PC/AT, as well as to the 4381 mainframe on a batch basis. 

Program Material 

Aside from the technology, putting together the program discs has its 
own challenges. One problem is just assembling the program mate- 
rial, when it has to come from 50 different countries and many other 
sources. Many countries are unable or unwilling to release informa- 
tion about their pavilions, or simply will not conform to the required 
format and schedule. 

Another challenge is language. Bilingualism is a fact of life in Canada, 
with both English and French entrenched as official national lan- 
guages. The stereo capability of the videodisc matches this perfectly, 
with one channel used for each official language. However, the system 
has not taken up the challenge of the 20 or more languages that could 
be appreciated by Worid's Fair visitors! 

The Potential 

The World's Fair information system is strictly a prototype at this 
point, assembled specifically for this purpose. However, one immedi- 
ately conjures visions of its potential. With little modification other 
than a new videodisc, each console could be adapted to such tasks as 
education, catalog shopping, or flight information at an airport. The 
handicapped, if they have the mobility to reach the screen, could also 
benefit- As evidenced by the usual lineups, the IBM information 
system is a definite hit at Expo 86. This suggests strongly that it has 
good potential for public acceptance in these other applications. 

Commodore's Amiga Theatre 

In contrast lo IBM's straight display of high-tech, Commodore has 
chosen an artistic forum to highlight the capabilities of the Amiga 
computer- Commodore is an official corporate supporter at the Can- 
ada Pavilion, and has assumed sponsorship of the Amiga Studio 
Theatre, a unique facility that complements live stage performances 
with computerized special effects. This sponsorship consists of two 
elements: as well as the usual financial support. Commodore has 
supplied a number of Amiga computers for artistic use and theatre 
ope rat ion s- 

The Canada Pavilion is a short train ride away from the rest of the site, 
on a pier jutting out into Burrard Inlet, part of the Port of Vancouver. 
Its five-sailed fabric roof is one of the trademarks of Expo '86, also 
covering a cruise ship terminal. (Just so you hosers don't get confused 
about where you are, the portal to the host pavilion features the 
world's largest hockey stick and puck!) 

The Amiga Studio Theatre is a 380-seat facility located near the 
harbour end of the pavilion: in the accompanying photo, it is located 
in the round structure near the right side of the pier. Doug Welch, the 
proud Theatre Manager, filled me in on some of the details. Billed as 
Canada's most technologically sophisticated theatre, this studio has 
an intimate atmosphere with a distinct tech no-mystical edge. While 
the live performances themselves are clearly artistic in nature, the 
stageisaugmentedby 6 projection screens, each 7'/2by 10 feet in size 
{approx 2.2 by 3 metres). The three screens above the stage are fixed 
in place, and illuminated by ceiling-mounted video projectors; the 
remaining three are at stage level, movable, and use a self-contained 
rear-projection system. The six projectors, in turn, are backed up by a 
technical extravaganza of Amigas, video cameras and recorders, 
lasers, and other special effects. 
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The lobby of Ihe Theatre features a colourful neon and sculptured mural display. 




Interior of the Amiga Studio Theatre - seating area. The theatre is in the process of 

being set up for another act. 




Some of the 25 monitors used to entertain waiting patrons in the lobby. 



During the course of the fair. Ihe theatre has a 
wide variety of scheduled performances, includ- 
ing dance, small orchestras, and stage plays, up 
to nine events a day. The majority of these use 
Amiga computers to generate performance mate- 
rial to complement the live performances. For 
anyone seriously interested in this machine, or 
even just in the potential of computers in the arts, 
the theatre is worth a trip to Ihe fair all on its own. 

The number of Amigas and the jobs they look 
after in the theatre are truly impressive. First of 
all, Commodore is supplying computers to the 
performing artists for advance preparation of 
performance material At any one lime, 18 to 20 
machines are out on loan in this manner to 
groups who are commissioned to produce artistic 
works. Later, when these groups arrive at Ihe 
theatre, there are two more Amigas in service in 
the control room. Graphic material which the 
performing groups have prepared previously and 
stored on tape or disc can then be displayed; in 
addition, the Amigas are applied to routine tasks 
such as projecting title credits onto the screens. A 
third Amiga in the control room is reserved for 
interaction with the audience in a current show, 
which I'll discuss further in a moment. Finally, 
yet another Amiga is used to entertain visitors 
waiting to enter the theatre. This computer pre- 
pares graphics displays {some pre-packaged, 
others developing as they run), and shows them 
on some 25 monitors arranged in the anteroom. 

During a short visit to the control area, i tallied 
six videodisc players, six tape players, chroma- 
key and Fairlight equipment, some 27 video 
monitors, and two windows (real ones) offering 
the best stage view in the house. Horrors - the 
four Amigas even had to share shelf space with 
three Apple iVs! 

Sample Applications 

Your intrepid reporter selected a couple of per- 
formances to view the results - all in the line of 
duty, of course. The technical capabilities of this 
setup are difficult to describe in words, so per- 
haps it's better simply to explain how they are 
applied in these two performances. 

The first is a production by The Great Canadian 
Theatre Company of Ottawa, entitled 'All I Get is 
Static'. At its core, this is a fairly traditional stage 
play concerning the lot of Reginald Fessenden, a 
contemporary of Marconi who was the first to 
transmit voice by radio, but was forgotten by 
history. The performance begins with a five- 
minute graph ic-and-sound introduction: the 
graphics were prepared on the Amiga and other 
studio equipment, and include a mixture of digi- 
tized images, pure graphics, and video wallpa- 
per. This is followed by the main performance, a 
live half-hour play by three actors. This would 
be a worthwhile performance in its own right. 
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but is made far more enrerlaining through The layering of additional 
characters, as well as background graphics, from the video system. 
With this performance, all graphics were prepared in advance, and 
displayed from videotape. 




The control room of the Amiga Studio Theatre: the foreground 
controls are for switching and special effects, while ttie Amiga 
in the background is reserved for the ThealreSporls event 

ll would have tieen all too easy to detract from a worthwhile play by 
superimposing unnecessary lechno-pop graphics, merely to demon- 
strate the computers' capabilities. However, that is certainly not the 
case with this performance. The graphics are very carefully inte- 
grated, woven into the production and throughout the pio(, so that 
they seem to be a natural part of the play. Oh yes, there's one more 
role for an Amiga - being used as a stage prop. 

The second performance makes much more dynamic use of the 
Amiga. This production, by an improvisational group called Vancou- 
ver TheatreSports League, actually uses memtiers of the audience to 
construct a sort of life-sized video game; through twists of plot too 
contorted to detail here, the audience eventually has to rescue the 
theatre from an alien threat. In the course of achieving this, good use 
is made of a variety of special effects, mostly computerized. 

While the basic plot of this story is established in advance, it unfolds 
differently with each performance. At various points, members of the 
audience suggest bits of information - names, places, and concepts - 
that are then worked into the developing plot. For example, someone 
in the audience is asked to name a famous lime or place in history. A 



control-room Amiga contains a list of scenes stored on videodisc, and 
an appropriate background is selected to represent ihe desired locale- 
Cast members tlien improvise a scene in an off-stage studio, which is 
superimposed on the video footage and projected for the audience. 
Later in the show, another volunteer is taken from the audience and 
included in the composite scene. The location, props, and plot 
direction can all be varied in accord with audience input. While these 
concepts are not entirely new, they are freshly presented in this 
production, and made far more realistic as a result of the many 
videodisc backgrounds available through the Amiga, 

Even more innovative use of the Amiga is made when a number of 
audience members, up to 52 in total, are given touch-sensitive input 
devices to influence the progress of the game. Each of these devices 
consists of two electrodes embedded in small Velcro cuffs thai are 
attached to two fingers of the subject's hand. According to the story 
line, these "finger binders' are used to measure and collect energy to 
power the theatre: in fact, they are measuring the galvanic resistance 
of the subjects' skin, an indicator of their mental state. This is where 
the extra computers in the control room come into the picture - an 
Apple II collects this information and passes it to the Amiga. The 
Amiga then constructs a graph showing the 'energy level' using 
different coloured bars for the 52 subjects: this graph is projected in 
real lime for the audience, and fed back into the story to influence the 
outcome. A little corny, perhaps, but very effective. 

Other productions 1 wasn't able to see include dancers on-stage 
accompanied by video images of themselves, Amiga-synthesized 
voices welcoming visitors to the studio, and many more fabulous 
shows promised for later in the summer (after press deadline, unfortu- 
nately). 



Behind the Scenes 

Putting on innovative shows of this type involves the participation of 
many people besides the performers. As well as the many assistants, 
control room technicians, and so on. innovative work requires some- 
one to make it happen, I already mentioned Doug Welch, the Theatre 
Manager. In charge of the several theatres and other performances is 
John Cripton, Director of Cultural Programming for the Canada 
Pavilion. Iiwashisoriginal vision at the inception of the pavilion that 

provided the opportunity for a theatre combining artistic perform- 
ances with high-tech effects. While John is responsible for overall 
coordination and lining up performers, it is Diana Bockus whose 
experience and creative forces have brought the Amiga Studio The- 
atre to life. Over the past eighteen months, she designed the studio 
facilities, oversaw their installation, and worked with each of the 
performers in adapting their material. Any expert in this business 
must be self-taught, since authoritative tKwks and courses are only 
now l>ecoming available. Originally from Toronto. Diana's back- 
ground includes five years in development of interactive video; in a 
young art-form sucti as this, five years looks a lot like forever! 

Despite the imposing title of Video Development Manager, Diana 
enthusiastically gave me the inside look at the technology, starting 
with her own office. While a PC/XT sat idle to one side, she proceeded 
to demonstrate on a fully-equipped Amiga system, with Tecmar 
memory expansion and 20 Meg hard disk, an extra 3V2" drive, 
printer and mouse, all hooked up to a Sony LDP lOOOA videodisc 
player and extra monitor A venue like a World's Fair is a mixed 
blessing - while it provides the opportunity for new techniques to 
blossom, the tight five-month schedule leaves little room for experi- 
mentation. Nonetheless, Diana indicates Ihat there will continue to be 
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progress throughout the fair. She also sees ampie area for continuing 
growth of the medium, with the logical next steps being into artificial 
intelligence, and into total automation of the theatre, with manual 
override as necessary. 

As for software, much of the work is done by custom programming, 
either totally written for the task at hand, or else modified from 
standard material. Software to retrieve videodisc imagery, for exam- 
pie, is actually a two-part job; one is the supervisory task of control- 
ling the machinery itself, while the other is the interface with the user, 
who must be able to select from among hundreds of images quickly 
and efficiently. The software for this purpose was written by Bill 
Henning. a programmer at nearby Simon Fraser University, and 
handles the different tasks well. One example of software requiring 
modification is the use of chromakey to superimpose live actors on 
the background scenes. The frame-grabber and genlock could be 
applied to this task, but the present software configuration simply 
does not respond to the requirements of live performance, primarily 
in terms of the time needed to access these functions. 




Your intrepid reporter lakes a self-portrait from 
the frame-grabber display's monitor 




The office of Diana Bockus, Video Development Manager of the Amiga Studio Theatre, 
This Amiga is fully equipped with 2 megabytes, a 20-meg hard disk, extra Vh " disk, and 
videodisk player and monitor. A prairie scene from the videodisk player is displayed on 

the second monitor. 



Well, Tm sorry to talk at such length, 
but the IBM information system and 
the Amiga Studio Theatre seemed to 
offer such optimistic views of the fu- 
ture of computers, that I just had to 
elaborate. However, they only scratch 
the surface of the computer activities 
at Expo '86. Computers are used rou- 
tinely for just about everything, from 
running the traffic lights and train sys- 
tem, to finding your lost children after 
the computerized fireworks. 

Just one last example - not far from 
the Amiga Studio Theatre, there are 
two computerized robot arms that me- 
thodically manipulate a piece of pa- 
per. This activity quickly draws a 
curious crowd, anxious to learn what 
the robots are up to. . . until they fin- 
ish folding their paper airplane, and 
launch it into the crowd! 

That amusing demonstration perhaps 
epitomizes the Worid's Fair - while 
you're having fun, you hardly notice 
that you're being educated as well. 
Judging by the enthusiastic response 



Other software currently being used includes DPaint, DPSlide, and 
DPVideo for titling and other graphics effects. These also had to have 
some modifications to improve access time. 



of the crowds, the many computerized 
displays at Expo 86 have quickly earned public acceptance in their 
applications, thus contributing actively to broader role of a World's 
Fair and, in the process, to a better understanding of our world. 



Other Applications 



For further information, contact the author at: 



Beyond the Studio Theatre, Amigas are also in use in the interactive 
displays in the main pavilion area. In a viewing area, a visitor stands 
in front of a video camera, while his or her face is continuously 
displayed by the frame grabber. At the touch of a button, the image is 
frozen: the Amiga then produces that image at several different 
resolution levels, and displays them on a series of video monitors. 
This seemingly simple process is sufficient to draw a crowd and keep 
them entertained. 



4425 West 1 2th Ave,, Vancouver BC V6R 2R3 

or: 

IBM Canada Ltd 

POBox 10132, Vancouver BCV7Y IGl 

or: 

Expo 86 Canada Pavilion. Vancouver BC V6C 3C1 



604^224-5879 



604-664-6600 



604-666-2000 



\ Th# iiwoctor 
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The Comspec AX2000: 

2 Megabyte RAM expansion for the Amiga 

Chris Zamara, Technical Editor 



Price: S1276 ($899 US) (plus appropriate taxes) 

Warranty: 1 year parts and labour 

Manufacturer: Comspec Communications Inc. 

153 BridgeJand Avenue, Unit 5 
Toronto, ON. M6A 2Y6 
(416)787-0617 



Think about two Megabytes for a moment. That's 2.048 Kilobytes. 
Putting that much memory on a micro sounds akin to strapping a 
Jet engine to a Chevette, but believe it or not. it fits the Amiga more 
like a high-boost turbocharger. 

You see, the Amiga, by its very nature, loves using lots of memory. 
Its internal 51 2K can quickly fill with screens and windows opened 
by programs in the system. The multi-tasking nature of Amiga 
makes it only too convenient to bring in another program on a 
whim and have it sitting around in a window for whenever you 
need it, 50K here and 1 OOK there can quickly add up. (If anyone is 
trying to run an Amiga with the minimum 256K, you know what I 
mean.) Another RAM-eater is the built-in RAM disk, which can be 
used to speed up program development, or cut down disk swaps 
with a single-drive system. All of these factors contribute to 
making Amiga a machine which greatly benefits from added 
memory. That's a nice way to call it memory hungry. 

Before getting into the review about the Comspec board specifi- 
cally, I'd like to say a few things about memory on the Amiga in 
general - one 2 Meg expansion will Junction much like another 

Amiga holds two flavours of memory; "chip'* ram. and "fast" ram- 
Chip ram is accessible by the video chips, sound chip and DMA 
channels, and cannot be expanded beyond the internal 51 2K. This 
512K comprises the built-in 256K plus the optional 256K ex- 
pander which plugs in behind the front panel. All graphics infor- 
mation, such as screens, gadgets, sprites, windows, etc. must be 
stored in this chip ram, so the number of graphic-intensive 
programs you can run at once is limited no matter how much 
expansion RAM you add. The video and sound chips access chip 
RAM directly, and have priority over the CPU. If you are in hi-res 
mode (640 X 200 or 640 X 400) and using 1 6-colours, for example, 
the CPU will only be able to access chip RAM during the screen's 
vertical and horizontal retrace - about 24% of the hme. This will 
obviously slow things down if you're trying to execute a program 
residing in chip RAM while displaying a hi-res screen. 

Fast RAM, on the other hand, does not conflict with DMA access 
from the chips, so a program executing from fast RAM will run at 
full speed regardless of any graphics or sound activity. A stock 
Amiga has NO fast RAM, and any RAM expansion beyond the 
5I2K chip RAM is "fast". Thus, Comspec's box reviewed below 
gives you 2 Meg of FAST RAM, 




Since non-graphic information such as programs are best stored in 
fast RAM, the operating system tries to use fast RAM whenever a 
programs asks for some memory. If a program just asks for any old 
memory and doesn't specify what kind, the system will allocate 
fast RAM . That creates problems for some programs, because they 
were written on non-expanded Amigas and their authors didn't 
think of allocahng chip RAM for graphics information (for exam- 
ple, a gadget or sprite may be coded as part of the program itself, 
which will reside in fast RAM). To the user, that means that some 
programs that worked fine on the standard Amiga won't look right 
when you run them on the expanded machine. That may lead you 
to believe that the fault is with the added RAM, but the fault is 
actually with the program itself. Even version l.O of Amiga's 
operating system had a little trouble with RAM expansion. So 
beware -the software youYe using now may not run properly with 
extra RAM on the system, but the problems will probably be fixed 
on program updates and all future programs. The changes aren't 
that hard to make. 

So. if added RAM doesn't necessarily let you run more programs, 
and some of your existing software won't work with it, is it really 
worth the significant amount of cash that you'll have to put out for 
it?Thatalldependson what you're using your Amiga for. If you are 
developing programs, in C, assembler, or another language, the 
use of a large RAM disk can speed up compiles greatly. If you use 
AmigaDOS commands from CLI frequently, you may want to copy 
all commands to IWM and have them execute instantly, if you 
only have a single drive, bolting on a super-fast 2 Meg RAM drive 
can definitely make life easier for you. And even for just running 
application programs, you can have more data in memory at once 
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for your projed, culling down disk access and allowing longer 
documents, bi^er spreadsheels, fasler database access, etc. 

The greatest demand for expansion RAM, though, will probably 
come from software developers, who will want to keep all of their 
CLI commands, software tools, editor, compiler, libraries, source 
files, and include files in RAM. You just can't do fhafwifh512K. (n 
fact, for this kind of programming, even running just an extra 1 
Meg would be tight The added 2 Meg, along with the internal 
51 2K is just about right for a good "turbocharge". and isn't as much 
of an overkill as it sounds. 

To get an idea of what the added f^M could do for compile times, 1 
tried compiling Commodore- Amiga's program "dottyx" using the 
LaUice C Compiler under three different conditions. The Compile 
and link times for the three tests are given in minutes and seconds. 

In the first test, the source code, compiler, linker, libraries and 
include files are all on a single disk, and the .q. -o and executable 
files are being written to the same disk. The second test involved 
putting just the source and object files in f^M and using eveiy- 
thing else from a single disk. In the final time test, everything - 
Compiler, linker, include hies, libraries, and source - was stored in 
RAM. Using all of the includes from the developer's disk, plus a few 
favorite DOS commands costs just under a Meg of RAM, 

Test \: Everything on a single disk: 

Compile: 02:50 
Link: 02:02 

Test 2: Source and object in f^M: 
Compile: 01:27 
Link: 01:44 

Test 3: Everything in RAM: 
Compile: 00:44 
Link: 01:12 

As you can see, in this example compile time was over 3.8 times 
fasterwhen everything was in RAM. For source consisting of many 
files, the I^M advantage would probably be even greater. To even 
further reduce your waiting times, there's still room left in RAM for 
your favorite editor and any programming utilities you like to have 
kicking around. No wonder software developers like extra RAM so 
much. 

There are disadvantages to using RAM as a disk like this, though. 
First of all, setting up for your programming session can take quite 
a while, as copying a disk full of files into RAM is no instant 
operation. And the worst part is that every time you have to re- 
boot (can you say, "Guru Meditation Time'7) you will lose euery- 
thing in the RAM drive, meaning re-copying again. So you'll still 
have to save any work you're doing on disk once in a while. Of 
course, no amount of RAM expansion is a substitute for a hard 
drive, but it would be so nice if there was some way for the RAM's 
contents to survive a re-boot. 

Comspec's 2-Meg RAM Box 

Comspec Communications is a Toronto-based company known 
among many Commodore users for their "Microshare multi-user 



system" line of products. The Transactor has been convinced 
enough about Comspec's reputability to offer their RAM board on 
our mail-order card. The AX2000 goes for $1276 (Canadian, plus 
federal and provincial taxes), and The 1-MegAXlOOO is $1035, {US 
prices are $899 and $729 respectively.) If youVe a little wary of a 
review about a product sold by the magazine reviewing it, keep in 
mind that we reached our conclusions about this RAM board 
before deciding to take it on. 

The AX2000 is a small steel box which plugs into the expansion 
slot on the right side of the Amiga. If has an identical slot on its side 
for further expansion, and you can snap in the plastic slot cover 
from the Amiga if you don't need to plug anything else in. The box 
is Amiga-White, and measures 9 1/4" by 4 1/4"^ by 1 3/4" (not 
including the protruding edge-card connector). The extra 1 3/4" 
that it adds to the Amiga's width isn't too demanding of desk space, 
and the box is the same height as the Amiga, creating a perfect spot 
to the right of the monitor to place a second drive. Quite a compact 
package for all that RAM. really. 

Besides the unit's small size, there are other factors which give the 
impression of a well designed piece of hardware. The two- 
Megabyte board draws only 500 milliamps of current, the same as 
competing one-Megabyte units. Because of the low power draw 
and the design of the board, you can plug in two RAM boards, one 
into the other, and add a whopping four Megabytes. There are no 
ventilation slots anywhere on the box, since the little heat that is 
internally generated is dissipated through the steel case. And a big 
plus circuit-wise is that the board causes no wait states, never 
making the CPU wait for the RAM to catch up to it. 

The RAM will "auto-<onfig" itself, providing that you're using at 
least release 1.2 of Kickstarl and Workbench, which have auto- 
config implemented. This means that once you plug the box into 
the Amiga, the RAM will automatically be added to the system 
when the Amiga is powered up and fed its usual two-disk diet. The 
auto-config process lets you plug in any configuration of RAM, 
devices or whatever without worrying about setting DIP switches 
to avoid memory conflicts. If you are using older operating system 
versions, you can add the RAM to the system using a program 
included on a disk which comes with the RAM box. This program 
will do a RAM test, then add it to the system. You can include a call 
to this program in your Startup-Sequence to automate the proce- 
dure, so running the RAM with older system versions isn't really 
any more hassle. 

The disk that comes with the AX2000 is actually a Workbench 1 . 1 
disk with a special Startup-Sequence, two extra commands in the 
C directory, and two "Read___Me" files. The Startup-Sequence is 
cleverly designed to first test the f^M and print installation 
instructions if the test fails. This way. you can boot the disk when 
you first get the RAM and learn how to install it, then use the same 
disk once it's properiy plugged in. 

I have been using the AX2000 for several months now and have 
had no problems with it. The difference it makes to programming 
productivity and the amount of *"work" it seems to save is incredi- 
ble. Now that I've been spoiled, life with the Amiga just wouldn't 
be the same with a measly 512K. Then again, once an 8-Meg 
board comes out, I'll probably be saying the same thing about only 
2.5 Meg. Now, about installing that Jet engine. , . 
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A Peek At 

Amiga Disk Structure 



Betty Clay 
Arlington, Texas 



In order to understand the Amiga file structure, it is necessary 
to learn some terms that have not been familiar to Commodore 
users. We are accustomed to a directory track; the Amiga has a 
hash-chain and a root block. We speak of the BAM; the Amiga 
has bit-map pages- We are accustomed to a single directory on 
the center track, and the Amiga can have many directories in 
various locations, and even of different types. We are accus- 
tomed to program, sequential, and relative files, with most 
sectors looking very much alike. The Amiga has root directory 
blocks, user-directory blocks, header blocks (also called keys), 
list blocks, extension blocks, and data blocks, not to mention 
corrupt blocks and deleted corrupt blocks! Once the new words 
are learned, however, there are some similarities. 

The Amiga directory begins with the root block, which stores 
the location of other directories on the disk, and of files not 
assigned to one of the other directories. Just as we are accus- 
tomed to the directory track being at the center of the disk, so is 
the root block on the center track of the Amiga disks. 

On the current Amiga drives, a disk is formatted with eighty 
tracks, each having twenty-two sectors, and each sector hav- 
ing 512 bytes. Each sector is divided into 128 slots containing 
32 bits each^ and each slot may hold one 32-bit value, two 16- 
bit values, or four 8-bit values. The Amiga calls the tracks 
^cylinders' and the sectors are called 'blocks', which is already a 
familiar term. There is also a 'surface' number, which is always 
given as zero by the DiskEd disk editor, but as either zero or 
one by DiskDoctorL 

The root directory on each Amiga diskette is at block 880 (track 
40, sector 0) on the current drives. The block contains 1 28 slots 
for information, numbered through 127. The zero slot holds 
the file type identifier (a '2" for 'short hie"). Slots one and two in 
the root block always contain zeros; slot three currently holds 
the value 72, but on other drives might hold other values. 
Seventy-two is the value obtained when you subtract the 
number of slots that hold identifying information (the first six 
and the last fifty offsets) from the 128 that are available. If a 
future DOS is set for blocks longer than 512 bytes, then there 
will be more than 72 slots left for the hash table, and slot three 
will hold a different value. Offset four is unused on the root 
block, and number five holds the checksum on all types of 
sectors. 



Hash Tables 

Offsets six through seventy-seven of the directory blocks 
contain the "hash-table". 'Hashing' is a mathematical process 
through which the name of a file is changed to a numerical 
code, using a formula that will ensure that every possible name 
will be encoded to a number within the range allowed for a 
particular use. in this case a number between six and seventy- 
seven, inclusive. The formula is built into the DOS and is 
automatically calculated for us, so we do not need to know 
exactly what the formula is. To understand the hash table, we 
need only to understand that every possible file name will hash 
to a value of six through 77, the same numbers as the slots in 
the hash table. 

If your file name has a hash value of twelve (and if it is the first 
file in the directory that has that hash number), then the 
number of the block in which your file begins will be stored in 
slot twelve of the directory block. Each slot contains the block 
number of a file whose name hashes to the same value as the 
slot number- Were this the end of the matter, that would mean 
thai a directory would be limited to seventy-two files and that 
no two could have the same hash-value. This would be an 
intolerable limitation, so we must consider the hash-chain 
also. 



The Hash-Chain 

Suppose that you have saved a file called ^'filename" in the root 
directory, "Filename" has a hash-value of 59. Suppose this file 
begins with its header block in block 884. Slot 59 of the root 
directory will now contain the number 884. Suppose that later 
you wish to save a hie in the root directory and call it "File4", 
which also has a hash value of 59. This file will begin on. say, 
block 985- When the root directory is examined prior to storing 
"Pile4". it will be discovered that slot 59 already contains the 
number 884. Block 884 will then be read, and offset 124 (the 
hash-chain slot) of that block will be examined to see whether 
it contains a block number or a zero. Should it contain a block 
number that block would be examined to see if it contains a 
zero in slot 124. and so on until a block in the chain is found 
with zero in this offset. When the zero is found in the hash- 
chain slot, the zero will be replaced with 985, placing 'Tile4" 
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on the proper hash-chain. Then *Tile4"" will be written to the 
disk, beginning with its header-block in block 985. Slot 4 of 
block 985 will hold the number of the next block used for 
"File4", and slot 124 will contain a zero, showing that this is the 
last file on the chain at this time. It is this hash-chain that 
permits the Amiga to have an apparently limitless number of 
directory entries, yet the drive has a relatively small number of 
items to read in order to locate a specific file. 

When you give a command for ''File4'' to be read back, a 
similar process is followed. That is, the name will be converted 
back to its hash-value. 59, Then offset 59 of the root directory 
will be examined, and the 884 stored there will cause block 884 
to be read- The two filenames will be compared and, since they 
do not match, slot 124 will be read to find the number of the 
header block of the next file with a hash-value of 59. In our 
case, offset 124 will contain the number 985. Block 985 will 
then be read, and the file name there compared with "Fi[e4". 
These will match, so the file will be loaded. 



The Other Fifty Slots 

At the end of the root block are fifty more offsets which contain 
information about the disk. Slot 78 holds a flag to indicate 
whether the bitmap is valid, and is followed by twenty-five 
slots reserved for the bitmap pages. The following three slots, 
numbers 105-108 on current disks, contain the date and time 
the disk was last altered. The date is held as a single number, 
and is the number of days between Jan, 1. 1978 and the date of 
alteration. (Don't forget to include leap years,) The time is 
stored as the number of minutes since midnight and as the 
number oE seconds since the hour The next twelve slots are 
reserved to hold the name of the disk, which is limited to thirty 
characters. Slots 121 - 123 hold the date and time of the disk's 
creation, the next three are not used on a root block, and the 
last one holds a number that indicates the secondary file type (1 
for a root block). 



value of 32, and had stored "Filename" in the user-directory. 
Then the root block will store the block number assigned to the 
user-directory in offset 32, and offset 59 of the user-directory 
block will contain block 884. This is why the full directory path 
must be spelled out when you call for a file. The root block 
must be read to find the user-directory, the user-directory 
block read to locate the key (block number) of the file, and then 
the header-block of the file read to hnd the blocks in which the 
data is stored. If you want a printout of the keys to your files, 
you can get it by typing: 

LIST TO PRT directoryname KEYS, 



File Header Blocks 

A file-header block contains 512 bytes. 128 slots, but they are 
used differently here. Offsets zero and one contain the usual 
information (file type and number of this block), but on these 
blocks offset two contains the number of blocks used for the 
file, three tells how many of the slots (6 - 77) are used to store 
numbers of data blocks, and slot four holds the block number 
of the first data block. Slot five holds the checksum, as usual. 
The next seventy-two offsets hold the numbers of the data 
blocks used for the file. The block numbers begin at the end of 
the table, slot 77, and move upward to number six. (In most 
cases, the files are stored in eleven consecutive sectors, skip 
twenty-one sectors, and then use eleven consecutive sectors 
again. The Amiga reads an entire track at one time, making this 
an efficient method of storage.) Offset number 80 holds 
protection bits, and number 81 contains the size of the file in 
bytes. There are twenty-two slots for your file comment, and 
the rest of the information is the same as in the user-directory 
except for number 126. It is used only if the data-block table is 
too large to fit into the seventy-two slots in this block. When a 
file contains more than seventy-two blocks, another block is 
designated to hold the data about the overflow. It is called an 
extension block, and its number is stored in slot 1 26. 



User Directory Blocks 

A user-directory block is quite similar to the root block. The 
first six slots are the same except that slot one holds the block's 
own number. The hash-table is just like that in the root block. 
Instead of the bitmap, however, there are protection bits and 
twenty-five slots in which your file comments are stored. Slots 
1 05- 1 07 contain the time and date the disk was formatted, held 
in the same format as those in the root block, numbers 108- 
123 are reserved for the name of the directory, and slot 124 is 
for the hash-chain. Slot 125 of the user-directory holds the 
header-block number of its parent directory, number 126 is 
not used, and 127 contains a '2' to indicate the secondary type 
'user directory'. 

If you indicate a file path when you store your files, the header- 
block numt>er is stored in the proper offset in the user- 
directory rather than in the root block. Suppose that you had 
made a user-directory called "Datafiles". which has a hash 



File List Blocks 

The extension (file list) block begins with the now-familiar six 
items of information: the file type, the block's own number, the 
number of offsets in this sector used for the block list, the 
number of the first data block, and the checksum. The data- 
block numbers again begin in slot 77 and are stored upward 
until they reach slot 6. If necessary, yet another extension block 
is assigned. The area reserved for comments and the date are 
unused on these blocks, and there is no hash^chain offset, but 
the last three slots are used to indicate the number of the parent 
directory, the number of the next extension block (if any), and 
the secondary file type. 



Data Blocks 

On these blocks, only the first six items of file data are used. 
They hold the type of block, the block's own number, the 
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sequence number in Ihe file for this block (is it number 5, etc.), 
the number of bytes of data in this block, the number of the 
next data block in this file, and the checksum- The remaining 
bytes are used for the data. Normally, all data blocks will be 
completely filled except the last, so the number of bytes will be 
488- The last block will contain fewer bytes, and slot 4 will 
contain zero for a forward pointer. 



You will see a notice that DiskEd has been activated, and each 
line after that will begin with a prompt, "^'\ Some commands 
you will need to use are: 



Editing Disks 

Of what use is this information? Well, it answers some of the 
questions that are asked about disk organization, of course. But 
it is essential that the hash-chain and the hash-table be 
understood if you are to edit your disks- File recovery is an 
important part of disk maintenance, and files cannot be recov- 
ered if you don't understand the structure. 

A disk came to me recently that was almost full, but the root 
block contained only one key number, and that one was 
incorrect — a completely corrupted disk. Every time we tried to 
read a directory, or even insert the disk in the normal way, we 
had to reset the computer. Yet we recovered that disk! 

The disk editor we used was DiskEd. from the WACK disk 
included in the developers' package. This disk is now available 
for anyone to purchase. In order to recover the disk, we first 
had to locate the header blocks of all the files we wanted to 
resurrect. Most user directories and header blocks are stored in 
the blocks between 880 and 1 100. The blocks with smaller or 
larger numbers are usually data blocks. By using DiskEd's "g' 
command to read the blocks in this range, we noted the header 
blocks and hash-value of each of the files we needed. With our 
information complete, block 880 was read, and the number of 
each header block was restored in the offset that matched the 
hash value of its file name, AmigaDOS is pretty smart. It 
refused to accept the wrong block number in a slot! When all of 
the headers had been restored to their proper positions in the 
root block, the checksum was corrected and the block written 
back to the disk. The directory was called, and the entire disk 
was reclaimed. Only the root block had been damaged, but 
without it the remainder was useless. 

Had we wanted to eliminate a file that was making it impossible 
to validate a disk, we could have put a zero into the slot that 
referenced the bad file. This would make the remainder of the 
disk usable, but that file would be permanently lost once 
something was written to the disk. On the other hand, it could 
also have been restored by placing the header-block number 
back in the root block. Perhaps a reading of the file would make 
it possible to correct its error and save the file. 

The documentation for DiskEd is sketchy, and it has not 
reached the popularity level it deserves. To use DISKED, place 
the WACK disk in the drive and, at a CLl prompt, type: 
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- to read the block you want to change or read {example: g 
880) 

- to display information about the block just read 

- to get the hash-value (and thus the slot number) of the 
filename. Type h and the file name. 

- to display the slot number or range of numbers you want 
to examine. Put a space between the numbers in the 
range - not a hyphen, as in 1 6 20'. 

- to change a number in the slot. Type the slot number, a 
slash, and the number you want to place in that slot. 
Example:36/5 will change the value in slot 36 to 5. 

- to correct the checksum after you have made a change 

- to set or unset the write-protect mode 

- to write the corrected block to the disk 

- to get out of the disked program 



If you follow this sequence of commands, you should be able to 
edit your disk. It is not a complete explanation of DiskEd. There 
are fourteen other commands available, but the nine given 
here are sufficient. They will permit you to change any byte of 
information on the disk, 1 have found DiskEd to be reliable and 
easy to use. 

Other disk editors? 1 just received a pre-release version of 
Kickstart and Workbench vl .2, and there is a DiskDoctor in the 
new "c" directory. For my first effort with it, I duplicated a disk 
known to contain an error. DiskDoctor read the disk looking 
for all the world like a formatting operation, except it said 
"Reading cylinder I", etc. Then came a series of reports 
showing the files that were being replaced on the disk. When- 
ever a serious error was encountered, it was reported on the 
screen as in "Hard error on cylinder 67." Multiple efforts were 
made to correct each error. Finally, I was asked whether 
corrupt files in a named directory should be deleted. The files 
were not named - just the directory, 1 answered 'yes', and 
found that the programs were not only deleted, the blocks in 
which they had resided were completely reformatted as though 
they had never been there. On another disk. 1 answered 'no', 
and the files were not deleted. I tried it on a disk that had 
managed to get the directory into an endless loop, and Dis- 
kDoctor corrected the error with no effort at all on my behalf. 
Remember that I was using an alpha version of an early pre- 
release version. Perhaps when this version is complete, there 
will be no need for knowledge on our part to repair disks, but 
for now, it is better to learn the file structure and do it ourselves. 
With DiskEd, we have complete control over every item writ- 
ten out to the disk. With DiskDoctor, we just sit and watch it do 
its thing. It is easy as formatting a disk or making a backup. 
Each of these fools will fill a need for most of us. DiskDoctor is 
fast and easy, but the control offered by DiskEd will permit us to 
change any byte on the disk. We'll want to do it both ways. 



cddt1:wackstuff 
Disked dfl: (or dfO:). 
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Disk Copier Comparison 



David Martin 
Seabrook, Texas 




Copy protection is becoming more and more complex month 
afler month, often making it extremely difficult for a person to 
protect his newest software investment by keeping a duplicate 
copy on hand. 

In fact, some of the newest techniques push the 1541 to its 
limits or beyond. They will often go where no 1541 has gone 
before, recording data well out past track 35, even out as far as 
track 40, These schemes are apparently very sensitive to drive 
alignment problems, which means that if the alignment is off. 
the program may not Load and Run. 

Today users face a better opportunity in creating backups of 
their valuable software through the use of state-of-the-art disk 
copy programs which can considerably speed up copy times 
and provide many other features to enhance disk drive usage. 

The scope of this review is to help the reader decide which 
copier is best in terms of features and cost while leaving the 
final decision up to him. Therefore, 1 am basing my recommen- 
dations on cost and available features on a comparison basis, 
since not every program offers the same features at the same 
prices. So, make yourself comfortable as we begin to explore 
the wide world of disk copiers. 



Diskmaker V3.3 

DiskMaker was introduced several years ago and has 
since seen very little improvements in its arsenal. 
However, earlier this year, Basix released V3,3, only a 
small improvement over earlier versions, that incorpo- 
rates modular design and speed increases. 

The modular design comes in the form of updates to the 
disk nibbler called "Masterkey" modules. These up- 
dates are available individually or through subscription 
at a very high price. Recent updates have also included 
speed increases during disk copying. 

1 advise Commodore users to avoid this program until it 
sees vast improvements. The program should see the 
following improvements to justify it's high cost of 
$49.95, which even then will cost too much. It needs 
the addition of programs that will allow a fast copy on 
two drives as well as a fast file copier. Also, the addition 
of disk utilities would be wonderful. Basix has adver- 
tised a disk utility package called 'Toolkit*' for over a year that 
retails at $39.95 and offers the features that DiskMaker sorely 
lacks. However, the reader can see in the comparison chart that 
expenses run high with products from this company, when 
other vendors offer more features for under $30.00. Again, 
until Basix prices change or features are added, this is one of 
the titles to avoid at all costs, I rank this title a one on the 1-iO 
scale due to it's high cost, no added features and updates that 
are not vastly improved since version 1.1. 

Keymaster 

Keymaster is MegaSoffs newest disk copier, which retails at 
$29.95 and does incorporate some of today's newest disk copy 
ideologies (parameters, fast DOS, etc.). 

The program supports various disk drive configurations (single 
or dual) using a 1 54 1 or 1 57 1 . Also, the program is fast and will 
copy disks on a single drive in under three minutes and under 
one minute on dual drives. Additionally, it supports a East 
formal that formats disks in about 10 seconds. 

Keymaster also offers a method for fast file copying using a 
rather unique method of transferring files from disk to disk. 



TrW iTonsociof 



a3 



Nov. 19M: Vobnw 7, litus 03 



This is done by fast loading a file into memory and then fast 
saving it back to disk. A drawback to this method is that, since 
the program does not use a buffer, which could hold more than 
one program, the user is forced to swap disks many times (at 
least 2 or more for each file he wishes io copy). Keep in mind 
that this method will support one file at a time no matter how 
large or small the file is. 

A further enhancement to Keymaster is the ability to copy disks 
using parameters for backing up some disk titles easier than 
before. The program comes packaged with 50 parameters, and 

r 

more are available on disk at $10.00 per disk from MegaSoft. 

Here again, ! advise readers to avoid this program since it is not 
cost effective due to the lack of features and lack of support 
from MegaSofl (Im a registered owner who was not advised of 
recent updates from them). This program does perform as 
advertised, under strict hardware configuration conditions, as 
mentioned in its two page manual. My dual drive fast file copy 
test failed because of Keymaster's lack of 157! support, a 
problem that the other programs did not face. Lack of support 
and features as well as high cost ranks this program a low three 
on a scale of 1-10, 

Copy II 64/ 128 

Copy II is Central Point Software's entry as a disk copier, 
produced by a company that is well known for producing disk 
utility software for other name brand computers. This program 
does offer high speed copying and a few utilities in its arsenal. It 
even offers a different method of presenting parameters via an 
enclosed leaflet that tells how to set the programs parameters to 
copy certain disks easier and accurately. 

Currently, Copy II does support the C64 and C128 as well as the 
1541 and 1571 disk drives. It does provide a working copier on 
these drives in single drive or dual drive set-up. The copier is 
able to examine the hardware present to determine the single 
or dual mode of operation, and uses the information to load the 
appropriate program. 

The utilities that Copy I! currently supports are a delete file 
program as well as a fast load for BASIC. It would be nice to see 
more utilities for this program that could help a user in 
determining how to set the programs parameters. This cur- 
rently is impossible, and requires that the user refer to their 
enclosed parameter sheet. Thus, Copy II can very quickly 
become outdated. 

Again, as a copy program, Copy il does not offer anything that 
makes it worth a cost of $39.95 (and half price for updates). 
Here, the program is similar to Diskmaker since it offers very 
little for such a high cost. 

Although compounded by the lack of support outside the copy 
process, the program does work well, but would work better 
with some form of disk scanner with which users could check 
disks not listed on the parameter sheet for protection to set the 
program up accordingly. Hopefully, we will see these changes 



in the near future from a company that supports better products 
for other machines. At this time I do not recommend the 
purchase of this program because it is not cost effective and 
offers little added features, unlike other programs. This pro- 
gram is awarded a rank of five on the 1-10 scale. 

DisectorVS.O 

Disector is the program from Starpoint Software that started it 
all a few years back- The program has grown quite a bit from 
version 1.0 that we all started with at one point or another. 
Recent improvements to the program inversion 3.0 have been 
a welcome sight to the copier world with improvements that 
have followed what I hope to see as a continuing trend towards 
programs that carry more features at a very good price. 

Disector is a program that has improved by supporting fast 
DOS routines for both single and dual drive owners. These 
programs are rather fast and do function on both 154rs and 
ISTl's as well. 1 did, however, experience some trouble with 
the dual disk copier when it got wind of certain protection 
schemes (the single disk copier didn't experience any prob- 
lems). I would expect that an update will clear these problems 
up. 

One disappointing feature of Disector is its lack of a fast file 
copier contrary to the packages advertisement of an ''Ultra fast 
file copier- , ,.". I found this to be very disappointing after 
examining the program's other features. 

The program also provides a parameter copier which only 
supports about 40 parameters (this is also disappointing - see 
the comparison chart). This utility is basically like the others, 
which require you to do a nibble copy then perform some type 
of special function using the program. 

For the most part. I do think that Disector is going in the right 
direction and found that its disk drive monitor utility, that is yet 
to find a rival, well worth the purchase price of $39.95. The 
monitor itself will disassemble unimplemented opcode, and 1 
find it to be a very invaluable tool in my programming and 
tinkering with the C64 and 1541 DOS. It does not currently 
support printed output, but 1 have been told that a new version 
of the program now supports printer output from the monitor. 
A note here: A majority of the programs in Disector do not 
support printer output where it is sorely needed. For example, 
in the Format Editor you cannot print the results of a disk scan. 
Currently, users are required to hand-write information about 
the 1 to 40 tracks on the diskette - this can lead to writer's 
cramp, which is quite painful, believe me! Hopefully, future 
versions will clear up this very important problem. 

Here again, 1 can see a program that comes from a reputable 
company and would suggest its purchase for the drive monitor 
alone. Hopefully, some of its flaws will be repaired and some 
additions made to its features in a future update. Although this 
program is awarded a seven on the 1-10 scale, it is still not the 
most cost effective. However, read on and find the cure. 
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Fasthack'em V3.0 

Faslhack'em, one of the mos! popular disk copiers, by Mike J. 
Henry of Basement Boys Software, is the program that started 
current trends in disk copiers. In a manner of speaking, this is 
the one the others are trying to beat, and currently, no one has 
come close (but read on). 

The program is quite good and does come with some rather 
interesting programs supporting Commodore drives as well as 
the MSD dual drive. At a retail cost of $29.95, i found it very 
good value for the following three reasons. 

First, the program does support a fast load program that is the 
only one currently available, to my knowledge, that will work 
on both the 1541/71 as well as the MSD. The program is 
intelligent and, when activated, selects the type of drive in use 
and works accordingly. This is nice because I can now load 
programs faster on my MSD, which also allows more storage 
then the 154L 

Second, the program supports a method in which the user may 
disconnect the computer from the drives (MSD or 2 1541/7rs) 
and still copy disks. Fasthack'em will then take over the drives 
and allow copying without the computer. Now, you can fool 
your friends with C64 multi-tasking as you use a word proces- 
sor at the same time, or something like that {1 usually use my 
modem while all this is going on). However, remember not to 
let them see the disconnected cables from the drives. 

Third, the program not only supports the use of 154]/7rs in 
C64mode. but will support them in C128 mode as well. 1 hope 
to see the C128 support expand more and more in the near 
future. Currently, the program will copy a double sided 1 57 1 
disk in a little over a minute. A little note here about speed; the 
program will copy most disks in under two minutes, and 
sometimes under three, depending on the amount of data and/ 
or degree of protection. However, Fasthack'emdoeshaveafew 
drawbacks from an otherwise well thought out program. 

First, the program currently does not support any form of disk 
utility such as disk editors or scanners. These would be very 
helpful in exploring the disks that Fasthack'em will not copy. 
At times, when copying disks, a parameter change within the 
nibbler might help a user create the backup, hence the need for 
disk scanners and editors. Currently, users are unable to do so 
and must experiment with the various copy programs on the 
disk. Secondly, the program parameter copier, of which a 
majority of programs have duplicated, will often display in- 
structions for copying disks and then exit to BASIC. It would be 
nice if the parameter copier would execute as a copier without 
having to load the various other programs in the Fasthack'em 
arsenal. 

The program Fasthack'em comes from a very reliable author 
who plans on expanding Fasthack'em in the near future. I 
highly recommend this program for MSD dual drive owners, as 
it supports that drive quite well. This alone makes it well worth 
the purchase price for MSD owners, as no one other than 



Basement Boys produces such a great MSD utility product. 
Also, the auto copy feature that does not require the computer 
is nice for us lazy users, or people who wish to make multiple 
backups (sigh, if only we could get it to put the disks in!). 

Although I greatly enjoyed the usage of Fasthack'em, I must say 
that its lack of utilities is giving some of its competition an edge, 
and hopefully we will see it expand and be more valuable in 
the near future (I am told that Version 4,0 will support some 
utilities). 

For MSD dual drive owners, I do recommend the purchase of 
this product since it currently is the best and only supporter of 
the MSD- However, for 1541 users, it does not really support 
them to the full extent that it should, utility wise (which would 
extend its ability to function). 1 am ranking this program a nine 
on the \-\0 scale due to its lack of available features. 

Super Kit/1541 

Super Kit/1541, from Prism Software, is an innovative new 
product that supports a majority of features for 1541/1571 
users for a low cost of $29.95. 

Having recently received this new product, I find it to have the 
flavour and flare that I have been looking for for sometime. At 
last, someone has released a full featured disk copier and disk 
explorer for the Commodore 64/128, It uses most of the 
current methods of disk copying as well as enhancing some of 
the old stand bys. 

SK is currently the fastest around, with Fasthack'em following a 
close second, I found that version 1.1 was easy to work with 
although a few problems do arise that become annoying after a 
while. For instance, a user is unable to return to the main menu 
from any of the other program modules. In later versions, this 
feature will be added, if 1 know my users out there (and I do 
because - wink! - 1 am one). For the most part, this is the major 
complaint with SK. 

Another minor problem is the inability to view a directory from 
the disk copiers (entire disk copiers. NOT the file copier). This is 
also something that is now being incorporated into a future 
version, and has been promised to appear in version 1.2 or 
above this summer. For the time being, keep those disks 
labeled! 

Super Kit (SK) is truly the most cost effective copier to date. It 
supports both single and dual drives (but not the MSD). The 
program comes on a double sided disk featuring a total of ten 
programs. Seven of these appear on side one and are composed 
of dual and single nibblers as well as normal disk copiers. The 
rest of the programs deal with file copying and disk editing. 
Side two, composed of the last three files, includes another 
nibbler {single drive only) as well as a scanner and disk 
parameter copier. 

The copiers included on the disk on side one are the fastest to 
date, and involve the usage of recent advances in programming 
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methods. The programs will operate at the maximum speed 
possible without major data loss or corruption on Commodore 
drives. The single drive copiers prove to be very fast and 
reliable, giving the user a choice of whether or not to verify the 
copies being made (which can speed up the copy process if 
turned off). The dual versions offer the same type of options as 
well as something interesting to do while you wait, which, by 
the way, doesn't last very long - the dual versions are so fast 
that it makes it worth going out and buying a second drive, 
especially if you do a lot of disk copying (i.e. users groups). The 
thing that I miss here is the automatic option of Fasthack'em 
that one can become dependent on. However, the program 
does provide some entertainment to ease the pain of losing the 
automatic option. During the dual copy process, the program 
plays music and displays graphics. Although it ain't Mr. Jack- 
son, it does suffice, and seeing those 154rs on the display 
working as hard as the ones on my desk was truly cute, to say 
the least. 

The SK program is also the first program to provide a dual hie 
copier as well as one for single drives. The copier program 
operates in two different modes of operation: normal mode and 
Super DOS mode. The program will copy or scratch files from 
the disk in the same manner as other programs of this type. It 
also supports a fast format that makes it easier to prepare disks 
to receive files. The program will copy SEQ, USR, PRG, and 
even DEL hies from disk to disk. Operation is the fastest to date 
in either single or dual drive modes. Please Note: According to 
an inside contact at Prism Software, they are currently revising 
the hie copier to include features like fast verify and fast 
scratch, among other things. Watch for these in future updates. 

The secret of the Fast File copier's speed is in the two modes of 
operation that it supports: normal and Super DOS. The normal 
mode uses standard 1541 DOS, except it does speed it up a 
whole lot. It only uses the standard DOS method of storing 
information on disk where the files are linked normally. In 
Super DOS mode, the sector blocks are linked every other fifth 
block instead of every other tenth. For example, links usually 
follow like this: 17,0 to 17,10 . . .. With Super DOS, they link 
like this: 17,0 to 17.5 etc.. This can speed up load times 
considerably as well as speed up copy times. This is because a 
normal 1 54 1 has a very slow rate of data transfer. When data is 
retrieved from disk, it normally takes about ten sectors of 
movement of the diskette in relation to the head at 350 rpm to 
pass the data out of the bus. With Super DOS, data transfer is so 
quick that by changing the spacing to every five sectors, a 
noticeable improvement is provided over its already fast load 
and copy times. 

The File Copier also provides a BAM editor which will allow a 
user to view and edit the Block Availability Map on the disk, A 
user enters a plus or minus to allocate or de-allocate disk 
blocks, then can re-write the edited version back to disk. 

The remainder of side one provides the user with several 
utilities, a sector editor and a OCR editor. These programs are 
invaluable tools for those who like to tinker with new disk 
protection schemes or develop their own ideas for such things. 



The Sector Editor is basically a standard sector editor with a 
built in machine language monitor, which does support the 
printer for printed outputs of displayed data (the editor itself 
also supports the printer). The monitor is a standard ML 
monitor that supports assembling/disassembling as well as 
number conversions. However, it does not support a method of 
editing memory in the drive or unimplemented opcodes, 
things that I hope future versions will support, In this module, 
the BAM editor is also supported (see above). 

The best disk utility published to date, that others have pre- 
sented in hardware or have attempted to do in either software 
or hardware, has finally surfaced in SK with the debut of the 
Group Code Recording Editor included in SK, for the basic cost 
of $29.95 (with all the above and morel), Basix has advertised 
such an addition to its DiskMaker product for over a year now 
at a price of $39.95 (along with some other utilities), however, 
such a product has yet to be delivered (I'm still waiting . , . will 
someone tell Basix to cancel my order?). 

The GCR Editor is a wonderfully innovative addition to any- 
one's software library, be they novice or hacker. This wil! really 
allow you to access the DOS in a way you could not do before. It 
helps users to actually study and devise means or methods of 
recording data on the 1541 disk drive. As a tool for exploring 
different disk formats, it has proven to be an invaluable tool 
and has helped me backup disks that I was not able to do 
before. Plus, it has brought out the adventurous hacker out in 
me and taught me a few things I didn't know before about 
standard DOS formats or the unnatural ones. 

Well, enough raving. On to the details. The program provides a 
means of scanning headers as well as viewing and editing 
tracks and data blocks. A user can then access a buffer area and 
edit these sections, viewing and changing the information in 
the buffers. Later, he may re-save the new information onto 
disk. 

Please Note: I must honestly not recommend this program for 
the novice user. However, you're only new once, so tinker 
away at it and experiment on non-important disks. The man- 
ual offers some help for novice users by offering a list of books 
to read (see the end of this article) that will help tutor you in 
really getting to know the DOS. They are highly recommended. 
Also, the manual offers a small "book" in the back by Rob 
Vaughn that is called "The History of Commodore 64 Program 
Protection", a very nice change of pace, giving the reader a few 
hints and tips. 

The only problems that I encountered with the GCR editor was 
the lack of printer support for dumping the data buffers contain- 
ing the GCR information. One reason for this is quite possible: 
when dealing with the DOS, a programmer often cannot clearly 
access the printer due to the havoc caused by some of the DOS 
routines. So. for the time being, this is something that I would 
like to see added to future versions as well. But. to date this has 
only slowed my poking around a little bit and I am still enjoying 
myself. 
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Side two of the SK disk provides even more innovative fea- 
tures. A Super Nibbler, a Super Disk Surgeon and the Super 
Scan. 

The Super Nibbler is a very fast nibbler copier for single drives 
only, that does not support any parameter changes except track 
ranges for copies, it is fully automatic and will delect most copy 
protection schemes. This program is used to create backups of 
SK that will only copy to one generation. In other words, the 
copies will not copy. The manual mentions that backing up 
your original SK disk Is recommended not only to protect the 
original but also to "customize" the program to best work on 
your particular drive. This program was tested on what 1 
consider to be the hardest to backup program that i own: 
Diskmaker V3.3. it would copy the program only if \ skipped 
track 6 which I call a ^^Wall" track. A "Wall" track is one that has 
never been formalled. thus no sync. A drive attempting to read 
such a track will "hang". "Hanging" means that the drive will 
spin continuously and freeze up on that track. 

However, the program created a backup of Diskmaker in under 
a minute that worked just like the original. Except for the 
parameter change above, I did no other editing. The program 
automatically detected the disk protection and acted accord- 
ingly, producing a working copy in no time at alL 1 would try 
this one first on all your programs before trying the others. It 
works rather well. 

The Sector Surgeon is the doctor to see if your disk backups still 
will not work properly. Although it isn't the cure for everything, 
this little program contains 270 parameters for copying a good 
amount of todays most popular programs. Perhaps I should 
correct myself and say "large" program. But no matter what the 
size, the program does do a wonderful job. 

The Surgeon even approaches disk parameter copying in a new 
and innovative method that, by far, surpasses all other pro- 
grams around. This is accomplished after the user selects the 
parameter he wishes to use. After selection, the program turns 
itself into a fast disk copier (single drive only), therefore 
removing the need to load another program to copy the disk. 
During the copy process, the parameter copier will use the 
parameter provided to make a working backup of the program. 

The copies made with Sector Surgeon may often run better 
then the originals, and will often run on drives they did not run 
on before. This program is designed to remove those nasty 
head rattling protection schemes that so many of us have 
learned to hate. Also, once again, the copies are '"customized" 
to run better on your particular drive. 

I readily approve of the Sector Surgeon doing all my delicate 
disk surgery and hope to see a dual drive version soon. This 
program also comes with the largest amount of parameters to 
date, and is yet to be beaten in ease of use. 

The last program on side two, Super Scan, provides users a 
method of scanning disks for DOS errors and standard or non- 
standard densities. This can aid in making backups of most 



software using the dual or single drive nibblers. In other words, 
you can set some program's parameters according to the 
information you receive from a disk scan. 

This is a utility that is most important in exploring disks, and 
has yet to be bested by another vendor (although Disector does 
come close). The format of this programs pictorial graph is a 
form of BAM which shows all the disk tracks and how they 
look. It helped me find out the exact tracks [ needed to copy for 
duplicating Diskmaker V3.3. The 'Wall" track (Track 6) ap- 
peared as a pi sign that was not documented in the manual. 
Perhaps it is something that might possibly change in its 
appearance. I^y advice to users is that if you see anything other 
than the standard 1.2,3, 4. then it's most likely a 'Wall" track, 
so skip it when copying or the drive will "hang." 

This utility was truly marvelous except for its lack of printed 
output (Note: Disector would also not print out its reports for 
errors and density), and the inability to set a range of tracks to 
test. My advice is this; When scanning a disk, do a density scan 
first because if you find a "Wall" track on the disk, doing an 
error scan may cause the drive to "hang" in the error checking 
mode of operation (density scan is not affected and 1 have no 
idea why). The information provided is not too lengthy in 
detail, but printed outputs for reference would be a nice 
addition. However, currently the lack of printer output of 
density and errors is only annoying; future updates will fix this 
problem. Note: the display that SK uses during a scan is easier 
to record than Disector's and is also shorter. Also, the addition 
of selectable scanning ranges has been promised in a future 
upgrade. I was told that version 1 .2 would also correct many of 
the scanner's problems, 

A final part of SK's arsenal is the Autobooter and Super DOS 
disk fast load modules, which are the fastest around. These 
utilities are placed on the SK disk to provide users a means of 
getting their own programs to fast load in various methods. 

The Autobooter allows a user to create the appropriate fast 
loader for his program with a selection of which Super DOS to 
use. The Super DOS programs offer much support of various 
modes of operation having to do with selecting whether or not 
to have the screen on or off as well as working around the 
computer's interrupts. The Super DOS modules, at their best, 
are able to load 150 blocks of data in about 10 seconds. One 
note here is that Super DOS formatted files are still standard 
DOS format compatible; they are made differently so that Super 
DOS can load them faster (see above). The manual advises file 
copying the original files in Super DOS mode to get the best 
speed out of the fast boot. 

Super Kit/1541 is the newest kid on the block of disk copiers, 
and is to become the standard that the others will seek to 
follow. On a cost/feature basis, I highly recommend this 
program because of its very visible and innovative techniques 
used. At the cost or less of other copiers, you can get a whole lot 
more in Super Kit/ 1 54 1 . This program is awarded a rank of a 
perfect ten. because as the advertisement truthfully states 
Super Kit/1541, ^'Has it all!" 



TrW TlUMUClOr 



37 



Mov. 198& Volunw 7, bHM 03 



Conclusions 

The programs reviewed here follow two basic characteristics 
that make them important; cost and the number of features. 
Out of the group of six. the programs can be divided into two 
groups; the ones to buy and the ones not to buy. 

The first three programs reviewed, Diskmaker, Keymaster and 
Copy II fall into thai last category. These programs do nol 
provide enough to sustain their high costs. An examination of 
the comparison chart will show you what is meant by this, 1 
truly feel that these products should cost less than they do until 
more additions are made to their arsenals. 

The following programs, Diseclor, Fasthack^em and Super Kit/ 
1 541 should be purchased for a variety of reasons. 

Disector's machine language monitor is very well put together 
and can be an invaluable aid to the programmer, A person in 
need of such a utility should run out and get Disector if your are 
desperate for such a monitor. However, pretty much of the rest 
of Disector proves to be a disappointment (Disector V2.0 was a 
whole step forward - V3.0 was a half step), especially the file 
copier which is said to be ^"Ultra Fast" on the program^s 
packaging. Unfortunately, this is an outright mistake on their 
part. 

The program Fasthack'em is a wonderful piece of software from 
an author who could, and should have offered more with his 
package. The program is invaluable to us MSD fans and C128 
owners(asit supports the C128 in CI 28 mode). Fasthack'em is 

a reliable product that 1 would advise purchasing if I were an 
MSD or C128 owner, but as a C64 and 1541 owner, it does not 

yet support you as fully as it should. 

The program Super Kit/ 1 54 1 is truly a light in the dark, and is 
currently unrivaled in the cost/feature area and is the one that I 
recommend investing in as a user's first disk copy utility. Being 
the first product from a new company, Super Kit/1541 is truly 
amazing, and I'm sure we will see more from Prism in the 
months and years to come as they provide more and more 
C64/128 support. Watch the software waves as this is the one 
that the others are going to start trying to beat! Currently, at 
$29,95. no one surpasses it. 

Suggested Readings 

I would suggest that readers interested in learning more about 
the DOS and disk protection methods pick up the following 

books: 

1) Inside Commodore DOS by Richard Immers and Gerald 
Neufeld 

2) 1541 User's Guide by Gerald Neufeld 

3) Program Protection Manual I by CSM Software 

4) Program Protection Manual 11 by CSM Software 



Benchmark Table 

Normal Copy - Standard DOS Disk Blocks Free. 
Protected Copy - Attempted Backup of DiskMaker V3.3. 
File Copy - 4 Standard Files each 1 50 Blocks long. 



Single Drive 
Dual Drive 
MSD Drive 



Equipment Used 

Commodore64 and 1541 
Commodore 128' and two 157rs 
Commodore 64 and two MSD SD-2's^ 



Footnotes: 1 - In Commodore 64 Mode 
2-FastHack'emOnly 



FastHack'em MSD SD-2 Benchmarks 



Program Name 


1 

Normal 


Protected 


Standard Nibbler 


01/04 


01/00 


Deep Nibbler 


01/09 


01/06 



Note: See Benchmark Table for Disks used for testing. 

Time is Minutes/Seconds 



Disk Copier Publistier Information 



DiskMaker V3.3 

Basix 

3463 Slate Street Suite 1 541 L 
Santa Barbara, CA 93105 
Orders:(805)687-1541ext. 34 
Tech : (805) 682-4000 exi. 33 

Keymaster 

MegaSoft, LTD. 
PO. Box 1080 
Battleground. WA 98604 
(800)541-1541 
(206) 687-5205 

Copy 1164/ 128 

Central Point Software 
9700 SW Capital Hwy*100 
Portland, OR 97219 
(503) 244-5782 



Disector V3.0 

Starpoint Software 
122 S.Broadway 
Yreka. CA 96097 
(916)842-6183 



Fasthack'em 

Basement Boys Software 
PO. Box 30901 
Portland, OR 97230-0901 
(503)761-1114 

Super Kit/1541 

Prism Software 

401 Uke Air Drive Suite D 

Waco, TX 76710 
Orders: (817) 757-4031 
Tech 1(817)751-0200 



Tfw nomQcior 



Nov. tVM: Volufn» 7, IfttM 03 



Disk Copier Comparison Chart 



Name 


DiskMaker 


Keymaster 


Copy II 64/128 


Disector 


Fast hack 'em 


Super Kit/ 1541 


Version 


3.3 


1.0 


2.6 


3.0 


3.0A 


1.1 


Publisher 


Basix 


MegaSoft 


Centra Point 


Starpoint 


Basement Boys 


Prism Software 


Level (1) 


N 


N 


N 


NandE 


N 


NandE 


Docs (2) 


1 


3 


6 


8 


7 


10 


Easy to Use? 


Yes 


Yes 


Yes 


Yes 


Yes 


Yes 


* of Disk Swaps(3) 


3 to 5 


3 to 5 


3 to 4 


3 to 5 


3 to 5 


3 to 4 


Backs up self? 


No 


No 


Yes 


Yes 


Yes 


Yes (C) 


2 drive option(s)? 


No 


Yes 


Yes 


i Yes 


Yes 


Yes 


Worl<s with MSD? 


No 


No 


No 


1 Yes (6) 


Yes 


No 


Price 


$49.95 


$29,95 


$39.95 


$39.95 


$29.95 


$29.95 


Backup Cost 


$15.00 


No 


backupable 


backupable ' 


backupable 


Backupable 


Upgrade Cost 


$24.95 


$10.00 


$20.00 


$5.00 


$12.00 


$10.00 


Speed 


(I drive- 1541X4) V = Verity VF=VerifyOff See Benchmark Table for Disks/Files Used for Testing 


Normal Copy 


01/45 


01/24 


02/13 


01/31 


V02/3! VFOl/46 


V02/13 VFOl/37 


Protected Copy 


03/40 


01/22 


01/59 


01/41 


V02/09VF01/39' 

1 


VOO/59 VFOO/45 


File Copy 


No 


02/30 


No 


16/00 


02/33 


Nrm:02/17SD:01/52 


Speed 


(2 drive - 2 1571'sX4) See FASTHACK'EM MSD Benchmark Table for MSD Information 


Normal Copy 


No 


02/03 


02/43 


00/59 


VOO/57 VFOO/45 


VOl/14 VFOO/46 


Protected Copy 


No 


01/57 


03/40 


Failed 


02/18 1 


00/26 


File Copy 


No 


Failed 


No 


16/00 


No 


Nrm:02/14SD:0!/47 


Utilities 




Sector Editor? 


No 


No 


No 


Yes 


No 


Yes 


GCR Editor? 


No 


No 


No 


No 


No 


Yes 


Fast Format? 


No 


10 Sec 


15 Sec 


8 Sec 


10 Sec 


10 Sec 


Fast Pi e Copier? 


No 


Yes(8) 


No 


No 


Yes (9) 


Yes (A) 


Parameters? 


No 


Yes 50 


Yes 200 (7) 


Yes 40 


Yes 100 


Yes 270 


Fast Loader? (5) 


No 


No 


Yes 1 


No 


Yes 1541 /MSD 


Yes (B) 


KEY: 1 - Novice/Expert 5 - Fast Boot for BASIC 9 - 100 B ocks/20 Seconds 

2 - Scale 1 to 10 6 - Not At Features A - 1 50 Blocks/23 Seconds 

3 - Single Drive Only 7 - Not on Disk B - 1 50 Blocks/ 1 Seconds 

4 - Minutes/Seconds 8 - One File at a Time C - Copy Protected 


NOTE; Programs that failed did not work to specs or would not dup icate the Benchmark Disk. 
Super Kil/1541 NRM = Normal Fast DOS SD = Super Dos Mode for File Copiers. 

Copyright 1986 By David W. Martin 
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WHO DO YOU TRUST? 



by The Disk Orderly 



This is mainly a tale of anguish and woe — describing twelve 
hours in my life that Td rather not relive. From the frustrations 
experienced a few weeks ago, I ought to be sent to the funny 
farm. The pseudonym is to protect the guilty ~ I'd rather not 
be known as the perpetrator/ victim of these misadventures. 

Oh, about the name, * - 

If Jim BuUerfleld is the guru, and Dick Immers/Gerry Neufeld 
can lay claim to the (deserved) title of being the Disk Doctor(s), 
then I suppose my qualifications rank me just above the 
hospital volunteer "candy-stripers". If I could ever reach the 
exalted heights of "nurse-hood'\ I would rejoice and probably 
buy a real computer. Suffice It to say that the term "veteran" 
could apply to my experience. I've done lots of programming 
(including machine language), taught BASIC and written a few 
articles in the past eight years. None of this experience quali- 
fied me for what that fateful day brought! To set the scene: 

It was a dark and stormy night. . .Oops, apologies to Snoopy for 
that lapse. 

One day I purchased an Accolade game, since the SUPERKiT/ 
1541 package would enable me Jo obtain a backup. I once 
proclaimed that I'd never patronize software publishers who 
abuse legitimate owners as well as thieves, but that noble 
principle has been abandoned, albeit reluctantly, 

I raced home with the SUPERKIT like a kid with a new toy. I 
should have known what was in store for me when 1 was 
unable to make a backup copy of the second side of the disk. 
Reset, reload, recopy. Futility, through three full cycles. Now 
try the SUPERKIT originai to make a game backup. No luck 
here either, as the three hour mark came and went. 

Drag out the 1541 alignment utility from Transactor Volume6. 
Issue2; the light doesn't blink at all while confirming my 
alignment is dead centre. On to Plan B, . . 

Hour Four 

So I call up my friendly dealer and ask him if he has a well- 
aligned drive in the store. A 1571 running in 1541 mode will do 
the trick. I hustle down there with a few blanks and make 
copies of both the SUPERKIT and the Accolade game. The 
copies run perfectly on his equipment. Now. I dash home and 



hope that maybe the copies made there will run at my place. 
My second hope is that those same copies will allow me to 
make further copies on my own equipment. My third hope is 
that my dinner will still be edible (some say I haven't missed a 
meal in my life). Well, it was one. . .two. . ,three strikes Tm out. 
As hour four comes to a close, I'm no further ahead and losing 
whatever patience I had at the outset. 

Hour Five 

On doing some deep thinking, I recalled running a speed test 
from an American copier program. It reported some months 
ago that I was running 309-310 r^p.m. If alignment wasn't the 
bugbear, then maybe speed was killing me. After all, 1 rea- 
soned, the SUPERKIT must be using its own carefully-timed 
routines to re-create all those fancy sectors from protected 
disks. 

So I located a drive speed test program from RUN magazine 
(July 1985), typed it in and found my drive to be precisely on- 
speed. The same issue told me how to disassemble my drive for 
alignment/speed adjustments, but I couldn't picture myself 
performing such a drastic action. Yet. 

Who do I believe now? The article did hint that if the drive was 
way off speed, then the program might erroneously report all 
was well Do 1 hang my hat on that? 

Hours Six and Seven 

These were totally wasted, as I pretended that the elapsed time 
may have healed all the wounds, 1 repeatedly fired up the 
computer, tried to copy both disks again, loaded the copied 
programs and watched the computer crash. Time after time. 
With the same agonizing results- 
Hours Eight and Nine 

It was time to call for help. The chap who had shown me the 
other drive speed program lives just across town, and a nine 
p.m, phone call would not threaten our friendship. He and his 
64 welcomed me. Now i had three sets of programs (both 
SUPERKIT and game): originals, copies made on my drive of 
each (none worked), and copies made on the dealer's equip- 
ment- One by one. minute by (passing) minute, they were fed to 
my friend's equipment. All failed. Even a full attempt to copy 
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everything on his system was a dismal failure. Then I loaded 
the original game disk, and it didn't even run properly! So 
much for (he scientific method — if I'd tried that one first it 
would have saved two hours. 



But what will happen when I flip the drive over, and seal the 
case? 

Hour Twelve 



When we located his drive speed program, lo and behold, my 
friend's drive clocked in at 311 r.p.m. According to that copier 
program, both our drives were out-of-whack, (His alignment 
was also fine). Now I was firmly convinced that speed was the 
problem. After all, I knew of no serious complaints with the 
SUPERKIT package. IWaybe the RUN program WAS wrong in its 
OK status report. 

Hour Ten 

So [ go home, with disks spilling from every pocket- Sure 
enough the borrowed speed test program gave me the 310 
r.p.m. verdict, as it had reported a long time ago. With that RUN 
article in hand. I swallowed hard (three times) and started to 
disassemble my drive. Me, the mechanical klutz, actually 
taking my drive apart! Friends say, "You did what?", when I 
relate this part of the saga. 

With the drive upside down, and the chassis resting in its cover. 
! notice that there's strobe markings for 50 Hz and 60 Hz. When 
the drive is set spinning, the strobe markings are completely 
stationary. (1 woke up my wife after midnight to help me find an 
old fluorescent desk lamp, so that there'd be no mistake). The 
markings didn't budge, not a millimeter per minute. Nothing. 

OK, so who do I believe now? The RUN speed test and the 
strobe marks confirm 300 r.p.m. speed, I'm sure Ontario Hydro 
knows enough to deliver 60Hz electricity! The other drive 
speedprogramsays310r,p,m. And the SUPERKIT won't make 
copies. What's going on here? 

Hour Eleven 

Taking a screwdriver in hand, I nudge the adjustment screw a 
little, until the copier drive speed program reports it's now 300 
r.p.m. Meanwhile the strobe marks start spinning around like 
the label on a record. With the drive upside down, I proceeded 
to make my backup of the SUPERKIT and then the game. 

Crossing all my fingers and toes. I reload the clones and try 
them out. Miracle of miracles, everything works! But what 
about all the stuff recorded at the "old" speed? Having a 
hundred disks that won't work now, just to have a game and a 
disk utility, is not a fair trade-off. 

I decide that an intermediate speed, of say 305 r.p-m., accord- 
ing to the copier speed test, might let me work with both old 
and new disks. After setting this speed, I again make successful 
clones of everything. A few other commercial disks seem to 
load OK. though the testing is superficial. 



Gulping even more. 1 dust off the RUN instructions on how to 
drill a hole in the 1541'$ case. This makes the drive speed 
adjustment screw accessible (once you have re-installed about 
a thousand tiny screws), A 5/8-inch diameter hole in the 
bottom of the case. Now my friends KNOW that IVe totally 
flipped. 

Now if anything goes awry. I can crank the speed back to what 
it was. I'm in the home stretch, as I put the chassis back into the 
case, turn it over and try everything over again: speed (both 
programs), clone the game and the SUPERKIT again, and run a 
few other disk programs. The RUN program now tells me that 
my speed is off by 3 ms, whatever that means. At least 1 have a 
calibration mark for when this all stops working for me! 

You should be able to determine by now that it is past two a.m., 
with Tuesday morning's alarm looming. After this marathon, 
I'm too wired to sleep, so 1 play a few rounds with my game 
clone. 

But what a price! 



Conclusion 

Sometimes persistence pays off. My scientific training helped 
me to accomplish my goal. How many of you would have 
trashed both disks eariier in the adventure? Was it worth the 
effort? Probably not, 

I blame Accolade for one. Their "warranty" is a postcard, which 
offers a $3 rebate on another Accolade purchase if you answer 
their market research questions. By now we Ve all seen the 
'^non-warranties" on software that don't even promise that the 
disk will load. Accolade sinks to new depths — they don't even 
mention that there is anything in the package that you just 
bought! Maybe that postcard is what I paid $40 for? 

These questions disturb me: 

How is it that two separate speed test programs, both reputable, 
give wildly different readings? Which do I believe? 

Why did I have to disregard the accurate strobe markings, and 
the RUN speed test results? In adjusting my drive speed to the 
copy program's version of 300 r.p.m., then the SUPERKIT 
began to work. Why? 

If anyone can help to explain what has happened here, I'd love 
to hear about it. Right now, 1 find it hard to know who to trust. 
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THE CLOCK 

for Commodore 64 



Donald P. Maple 
Calgary^ Alberta 



It is very easy to become oblivious to all worldly things 

while deeply involved in some profound programming task. . . 



This handy little program will make sure that you will never 
again miss anything because you got carried away while 
working on your computer. It will enable you to display two 
time zones and set audio and visual alarms for both! 

How many times have you missed your favourite TV show, 
been late for a dale . . .etc, all because of your computer? It is 
very easy to become oblivious to ail worldly things while 
deeply involved in some profound programming task on your 
64. such as solving the ultimate question of life, the universe 
and everything- (The answer to which, of course, is 42!) Well, 
despair no more because the solution to all that is nigh! The 
following program will offer not only one. but two clocks, 
totally independent and both with alarm features. These can be 
used to keep track of two time zones or one for the lime and the 
other as a stopwatch or anything else you can think of. . . 
Further more, they will not interfere with anything you happen 
lo be running at the lime! All this interest free, and no money 
down! If you can'l wait any longer and/or are nol really 
interested in the technical nitty-gritty of the program itself read 
on and the next section will reveal all the "HOW TOs'* 

Shake Before Use 

First and foremost you need peace of mind! Having achieved il, 
type in the BASIC loader using the Verifizer. Having completed 
the typing save the program first, and then run it. The screen 
shows the range of memory locations into which the machine 
language program is being loaded- The counter in reverse 
video will constantly change to reflect the memory locations 
stuffed as well as to provide a visual clue that the program is 
running. The BASIC loader contains the checksum to assure 
thai the data loaded is correct. If everything has gone well you 
can issue the SYS 12*4096 in line 60, otherwise the innocuous 
'^CHECKSUM ERROR" will be displayed to indicate it is lime to 
get agitated all over again, with optional 4-letter words. . , 

Assuming that everything has gone well, or you have regained 

your composure, you will now see two clocks in reverse video 
on the topmost line of the screen. The left one in white, 
affectionately known as CLOCK 1, and the right one in black, 
nicknamed surprisingly enough, CLOCK 2! Note that the 
clocks are not running. To get them going use the function keys 



described below. They will start up only after the time has been 
set. CLOCK 1 is controlled by holding the CTRL key in addition 
to the function keys and CLOCK 2 is controlled by holding the 
Commodore key in addition lo the function keys. Or, if you 
wish, the F-Keys tell the computer what to do, and the CTRL or 
Commodore keys tell it who to do it lo. This way the normal 
F1-F8 are undisturbed. 

Hold CTRL for Clock 1 , C = for Clock 2. 

Fl /2 - will toggle the display on and off. Sometimes the actual 
display of one or both clocks is nol desirable. It may get 
in the way of whatever is listed on the screen. Pressing 
the key will disable the display, then pressing the key 
again will bring it back. The clock itself is unaffected by 
this and continues ticking whether the display is on or 
off. 

F3/4 - will toggle the alarm on and off. The visual feedback for 
the alarm is the asterisk following the AM/PM flag. If the 
asterisk is present the alarm is on. if it's absent the alarm 
is off. Again if the display of the clock is off the alarm is 
unaffected and will wake you up as expected. 

When the alarm is tri^ered the display color of the clock 
rapidly changes and there is also an audible sound. The sound 
will be heard even if the computer happens to be playing a 
song! When the display is off, the alarm sound will still be 
audible but there will be no rapidly changing colors. The 
reason for nol awakening the display at this time is to prevent 
the destruction of whatever is in the appropriate corner on the 
screen. After all if the display was turned off it must have been 
for a reason! 

Once activated the alarm will go on for a couple of forevers, 
unless turned off by pressing the same F3/4. At this lime the 
display {if visible) returns to the default color, the buzzing 
sound stops and the asterisk disappears, 

F5/6 - sets the lime 

F7/8 - sets the alarm 
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When these keys are pressed a snapshot of the current time or 
alarm selling is displayed, using the default color, in the 
following formal: 

TIME : 021055P 
ALARM: 030000P 

The cursor is on the first digit and the lime/alarm can be set by 
overtyping. To make the program as short as possible there is 
no error checking and anything lyped in a format other than 
the default snapshot will sel the timers lo unusual saltings. 
However, this is easily remedied by resetting. 
Having set the time/alarm, type "A" for AM or "P" for PM, 
Finally before pressing RETURN the color of display can be 
changed in the same fashion as in BASIC, thai is by pressing 
CTRL or Commodore key and numbers 1-8. The color can 
actually be changed any lime before RETURN is pressed. 

When setting Ihe alarm, the alarm flag (asterisk) is turned on 
automatically. Note also that when the 64 is initially turned on 
the two docks are not running. They are started up by setting 
the time. 



applied to minutes, turning 10 into 11. This brief time, how- 
ever, is enough to trigger the alarm. The same logic applies to 
hours as well. 

If you are unhappy with the audio alarm, the pitch can be 
changed by poking assorted values in the following locations: 

CLOCK 1 - 49785 ($0279) freq lo 

49787 ($C27B)freq hi 
CLOCK 2 - 49786 ($C27A) freq lo 

49788 ($C27C) freq hi 

Having completed the customizing (sound, colours) the whole 
program can be saved using a monitor: 

S "CUSTOM CLOCK ".08,COOO,C26E 
Next time load your own clock using a non-relocating load: 

LOAD "CUSTOM CL0CK".8,1 
and activate it with: 



THE CLOCK will not only work in direct mode {such as BASIC 
editor or SUPERMON) but from within most programs as well. 
The only programs that will disable it are those that change the 
hardware interrupt vector. Also, while the editor is in the quote 
mode the setting of both time and alarm, are temporarily 

disabled. 

Unlike the BASIC time functions obtained from the "jiffy- 
clock" THE CLOCK is unperturbed by I/O activity on the serial 
bus. The display may freeze temporarily but the clock con- 
tinues ticking. This is obvious when the display resumes. 

During the testing, a couple of idiosyncrasies of the 6526 chip, 
that contain the clocks, have been observed. 

When setting the time/alarm any time beginning with 1 2 in the 
hours will cause the chip to flip the AM/PM flag. For example 
to set 5 minutes past noon (if "1 20500P" is used}, the chip will 
turn in into 1 2:05:00 AM! Apparently the clock sets the flag first 
and then when it sees "12" it advances the flag causing this 
problem- To circumvent this, in the example above use 
"000500P" for correct setting. Strangely enough the clock will 
handle the ' 1 2" properly if it arrived at it by itself. For example 
1]:59;59 AM will turn into 12:00:00 PM and eventually into 
01:00:00 PM, 

The second "bug" has to do with the alarm. For example if the 
alarm is set for 03; 1 0:00 PM it will go off as expected when this 
time is reached. We would now turn the alarm off. However, if 
the alarm is turned back on it will be triggered again when the 
time reaches 03:1 1 :00 PM??? The apparent reason for this is in 
the way the internal clock handles the carry. When the clock 
rolls 03:10:59 it turns briefly into 03:10:00 before the carry is 



SYS 12*4096 

This command is actually a toggle and it alternates THE 
CLOCK on and off. When turned off the actual timers keep on 
ticking preserving the correct time. However, having disabled 
THE CLOCK program, the alarms will not be checked. Note 
that before saving your own version, THE CLOCK must be 
turned off! This is so that when enabled it will set the interrupt 
correctly. 

The Life And Times Of 6526 CIA 

CIA, as we all know contrary to unsubstantiated rumors, stands 
indeed for COlVlPLEX INTERFACE ADAPTER. Your Commo- 
dore 64 has two of these. But what is this adapter and what 
does is do? For one thing, it lives to communicate and it loves to 
talk to peripherals in particular. As such it serves as a middle 
person between the processor and the outside world. Outside 
world, being a fairly complex machine, could not be handled 
with only one interface so that s why your 64 has two. One 
controls the RS-232 (modem for example), certain memory 
management aspects and the serial bus (to which we connect 
peripherals such as disk drive, printer, plotter, etc). The other 
samples the keyboard and everything that hangs off control 
ports 1 and 2, i.e. joysticks, paddles, light pen. trackballs, 
Koalapad etc. 

In order lo chat with all of those, timing is essential to any 
computer. That's why each CIA has three clocks on board. Two 
of them are 1 6 bit timers and the third is a Time Of Day (call me 
"TOD") clock. While the operating system uses the first two 
timers extensively it has totally forgotten TOD. And that's 
where we come in. 
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Each 6526 CIA has 16 registers used for various purposes- CIA 
1 lives at SDCOO (56320) and CIA 2 at $DDOO (56576). For this 
program we are only interested in 6 of those registers. 

$08 ( 8)- TOD lOths of seconds 

$09 ( 9} -TOD seconds 

$0A (10} -TOD minutes 

$0B (11) -TOD hours 

$0D (13) - Interrupt control register 

$0F (15) -Control register B 

To obtain the real addresses of the registers simply add the 
offset shown above lo the CIA start address. For example fo get 
the hours register for CIA 1 . add $0B (1 1) to $DC00 (56320). 

An interesting note here. The designers of the 64 have decided 
not to decode all of the address lines pointing to these registers. 
This leads to the occurence of so called "ghosting". What that 
means in practical terms is that the 16 registers, in this case 
actually occupy 256 locations. In other words they are repeated 
1 6 times. So, for example, $DC00 will also appear at $DC10 and 
$DC20and$DC30.,.elc! 

The four TOD registers actually access eight internal registers. 
In other words the same four addresses point to both time and 
alarm functions. Which one of those functions is accessed 
depends on bit seven of Control Register B. If this bit contains a 
zero, writing lo TOD registers will set the time, but if this bit 
contains a one, writing to TOD registers will set the alarm. 

bit 7of$0F(15) = 0- writing to $08-$OB(8-ll)sels time 
bit7of$0F(15)= 1- writing to $08-$OB (8-11) sets alarm 

Note that the state of bit 7 of Control Register B is of importance 
only when writing to TOD. When reading from TOD we will 
always get the time. In other words TOD contains a write only 
ALARM and read/write TIME registers. Because of this THE 
CLOCK program saves the alarm information independently. 

The order in which the TOD registers are read from or written 
to also plays an important role. Upon reading hours register at 
SOB (11), TOD clock stops. It will resume only after reading 
register $08 (8) - lOths of seconds. This does not apply to 
minutes and seconds. They can be read without stoping the 
clock. Actually the clock continues tlck-tocking internally but 
the output registers are latched until the read on lOths of 
seconds occurs. The same sequence is necessary when writing 
to either time or alarm registers. The clock will commence only 
after a write to lOlhs of seconds occurs. 



denotes AM, and if if s one then is PM. To be fair, though, the 
high nybble of this register is not used (or anything else. 

Finally there is the Interrupt control register at $0D (13). It is 
used to enable and sense the occurence of alarm that was set as 
previously described. This register is also connected to two 
internal registers, a read only interrupt data register and a write 
only interrupt mask register When the alarm occurs is will 
create an interrupt. Since there can be several sources of this 
interrupt the program monitors bit 2 of this register. If this bit is 
on then the time in TOD matches the time in the ALARM! And 
that's all there is to it. 

To do all this THE CLOCK modifies the hardware interrupt 
vector. This interrupt occurs 60 times per second and at that 
time the processor goes to a predetermined location and 
executes the "interrupt routine". For 6502/6510 type proces- 
sors the address of where to go is at $FFFE-$FFFR On 
Commodore 64 it ends up getting the next address at locations 
$03I4-$0315, Without getting into it in more detail THE 
CLOCK changes this vector to point to THE CLOCK itself. The 
program, however, politely makes note of where these two 
locations used to point to and. when done, jumps there to 
resume regular processing. This means that if some other 
program has already modified the vector, this utility will main- 
tain it. Normally, however, $0314-$0315 will point to $EA3L 



Conclusion 

This article and the accompanying program have only 
scratched the surface of this, indeed, complex interface chip. If 
you have any questions or suggestions you can contact me 
either through this magazine or directly at the address below. 

Donald R Maple 
P.O.Box 23. Station M 
Calgary T2P2G9 
CANADA 



Editor's Note: 

We asked Don for a copy of ifie source code for this program 
but opparentfy he used (believe it or not) the simple assembler 
in Supermon to write it, and unfortunately, time did not permit 
us to disassemble and comment it for you. 



To make the life of programmers easy the designers of this chip 
have decided to store all of the TOD data in BCD (binary coded 
decimal) and that is how the data is read or written. On the 
other hand, to make the life of programmers difficult the same 
designers have decided to use the hour register at $0B (11) to 
store the AM/PM flag! If bit seven of this register is zero it 
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THE CLOCK: BASIC Loader 



EG 


101 = 49152:t = 49837 


LJ 


LN 


20 print " ppoking from " f " to " t 


Ml 


KP 


30forj=f tot: read x : print "[^J"j 





DK 


40 poke j,x : ch = ch + X : next 





MA 


50 if ch<>84866 then print " checksum error : end 


LE 


BM 


60 rem sysl 2-4096 


OM 


EG 


70 rem 


KA 


JG 


100 data 120, 174, 20, 3,172, 21, 3,173 


GL 


GO 


110data135, 192,141, 20, 3,173,136,192 


KK 


DM 


120data141, 21, 3,142,135,192,140,136 


PK 


M 


130 data 192. 88, 96,162, 0,181,251, 72 


JG 


PJ 


140 data 232, 224, 4,208,248, 164, 197,204 


EN 


IN 


1 50 data 1 1 6. 1 94, 240, 38, 1 40, 1 1 6, 1 94, 1 92 


P 


GN 


160 data 3,144, 31,192, 7,176, 27,173 


HB 


PD 


170data141, 2, 74, 74,176, 6, 74,144 


FN 


GP 


180data 17,169, 0, 44,169, 1,141.115 


MB 


MC 


190data194, 185, 122, 194, 141, 80,192. 32 


M 


LJ 


200 data 69,193,169, 8,133,251,169.220 


KC 


JN 


210 data 133, 252, 169, 0, 133,253,169.212 


AA 


KP 


220 data 133, 254, 162, 12, 172, 1 1 1 , 194, 173 


GB 


MC 


, 230 data 109, 194, 32, 137, 192,230,252,169 


OA 


BE 


240 data 7,133,253,162, 39,172,112,194 


BJ 


LM 


250data173, 110, 194. 32,137,192,162, 3 


PC 


GJ 


260 data 104, 149, 251,202, 16,250, 76, 27 


LP 


E 


270data192, 74,144, 82, 72, 74,169,160 


EK 


KA 


280 data 144, 2, 169,170,141, 153, 194, 152 


FC 


AE 


290data 72,138, 72,160, 3,177,251, 16 


IF 


Nl 


300data 3, 169, 144, 44, 169, 129, 141, 151 


N 


JF 


310 data 194, 162, 0,177,251, 41,127, 74 


LF 


HL 


320 data 74, 74, 74, 9,176,157,142,194 


FH 


GJ 


330 data 177, 251, 41, 15, 9,176,232,157 


PG 


Jl 


340 data 142, 194, 232, 232, 136, 208, 228, 177 


B 


H 


350 data 251, 160, 12, 104, 170,185,141,194 


FC 


KP 


360 data 157, 0, 4,104, 72,157, 0,216 


FN 


HJ 


370 data 202, 136, 16,241,104,104, 74,144 


DP 


BM 


380 data 73,165,252, 74,162, 0,144, 1 


NF 


EM 


390 data 232, 189, 109, 194, 10,176, 22,160 


GN 


DL 


400 data 5,177,251, 41, 4,240, 51,189 


PB 


HM 


410 data 109, 194, 9,128,157, 109, 194, 160 


NC 


KN 


420 data 4,169, 0,145,253,160, 0,189 


JA 


DP 

AE 


430data121,194, 145,253,200,189,123,194 
440data145, 253, 160, 4,169, 33,145,253 


MO 




CO 


450 data 200, 1 69, 1 5, 1 45, 253, 200, 1 69, 240 




GP 


460data145, 253, 169, 15,141, 24,212,254 




HE 


470 data 111, 194, 96,169, 1, 32,104.193 




C 


480data 74,176, 17.165,209, 72,165,210 




AB 


490 data 72,162, 0, 32,255,233,104,133 




FD 


500data210, 104,133,209, 96,169, 2, 32 




ME 


510 data 104, 193, 74, 74,176, 25,138, 74 




L 


520 data 160. 4,144, 2,160, 11,153, 




OF 


530data-212, 189, 109, 194, 41,127,157,109 




KG 


540data194, 189, 113, 194, 157, 111.194, 96 





550 data 
560 data 
570 data 
580 data 
590 data 
600 data 
610 data 
620 data 
630 data 
640 data 
650 data 
660 data 
670 data 
680 data 
690 data 
700 data 
710 data 
720 data 
730 data 
740 data 
750 data 
760 data 
770 data 
780 data 
790 data 
800 data 
810 data 
820 data 
830 data 
840 data 
850 data 
860 data 
870 data 
880 data 
890 data 
900 data 
910 data 
920 data 
930 data 
940 data 
950 data 



174, 115, 
194, 96, 
212,208, 

8, 72, 

2, 160. 

76,129, 

162, 15, 

172,115, 

2,169, 
220, 24, 
254,160, 

9,128, 
154, 194, 
246, 232, 
129,176, 
194, 133, 
194, 41, 



253, 

162, 

74, 

41, 



16, 
65, 
74. 
15, 



208. 233. 

169,157. 

160. 3. 

10,153, 

15, 25, 

208, 232, 

185, 170, 

7, 9, 

145,251, 

115, 194, 

157, 113, 

13, 32, 



0, 

0. 

114, 

0, 



1, 
0, 
0, 
0. 



186,176, 

141,170, 

32, 13, 

32, 13, 



194, 93, 

160, 147, 

246, 169, 

72, 72, 

0, 132, 

234, 162, 

56.173, 

194,185, 

8,133, 

109,115, 

7,177, 

44, 41, 

32,210, 

240, 25, 

2, 169, 

254, 32, 

2, 240, 

5, 162, 

44,177, 

9, 48, 

9, 48, 

138, 32, 

32,210, 

32, 207, 

170, 194, 

170,194, 

32, 207, 

194, 144, 

128, 144, 

145, 253, 

173, 134, 

194, 104, 

210,255, 

0, 0, 

0, 10, 

0, 0, 

0,145, 

183,186, 

58, 69, 

58, 77, 

0, 0, 



109,194, 
44,160, 

193, 72, 
165,206, 
207, 32, 

7, 24, 
134, 2, 
113, 194, 
251, 133, 

194, 133, 
251, 40, 
127,145, 
255, 202, 
165,254, 
136,133, 

69,193, 
246, 1 60, 

80, 41, 
253, 72, 

32,210, 

32,210, 
210,255, 
255, 136, 
255, 10, 

32, 207, 

153,170, 

255, 74, 

4, 41, 

3,185, 

136, 16, 

2,157, 

141,134, 

96, 1, 

64, 0, 
5,117, 

8, 0, 
83, 160, 

178, 183, 

77, 73, 

82, 65, 

0, 8 



157,109 
152,165 
152, 72 
174,135 

19,234 
144, 3 

72, 8 
141,134 
253, 169 
252,133 
144, 3 
251, 189 
136, 16 

74, 169 

253, 169 

189,109 

3,177 

127, 44 

74, 74 
255,104 
255, 136 
160, 7 
208, 250 

10, 10 
255, 41 
194, 136 
160, 3 
127, 176 
170, 194 
246, 1 74 
111,194 
2,169 

1, 1 
0, 

43, 69 

0, 

176, 176 

160, 129 

84, 32 

76, 65 
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VIC-II Chip Interrupts 



Tomas Hrbek 
Rocky Point, New York 



This month's issue is about programming the Commodore chips. 
The most known and programmed chip by the average user is the 
SID chip, controlling sound and a few other things such as game 
paddles. Then there are the two CIA chips used for the housekeep- 
ing functions of the C-64. They are the timers for data transfers 
between the computer and different devices. They read joysticks, 
determine which key on the keyboard was hit and also generate 
the !RQ and NMI interrupts. There is also the VIC-II chip, which 
manages the Commodore 64 architecture. Il switches between the 
four 16k banks, displays different kinds of modes, as for example 
the text, hi-res and multicolor mode, controls sprites and other 
features. In this article 1 would like to discuss the lesser known 
features of the VIC-ll chip. 

As the title of this article suggests, the VlC-Il chip is capable of 
generating its own interrupts. These interrupts are of four different 
natures. They can be generated by a lightpen, sprite to sprite or 
sprite to background collisions, or by a specific raster line being 
reached. The last interrupt mentioned is the least understood by 
the average programmer, and is the one that I will discuss further. 

You might be wondering what this raster line interrupt might be 
and if you have ever seen it. You probably have, even though you 
might not know about it. If you own the popular word processor 
SpeedScript. the raster line interrupt generates the top message 
line. Other programs that also have this feature are PaperClip , 
KMMM Pascal, Cad-3D and others. Here, the raster line capabili- 
ties are used to highlight a single line, but you will see that raster 
line interrupts are much more powerful than that. 

To gain an understanding of this interrupt, we have to begin by 
examining how the computer displays information on the screen. 
Attached to the back of your monitor's picture tube is an electron 
gun that is used to generate an intense and accurate flow of 
electrons towards the phosphor coated surface of the inside of the 
picture tube. Monochrome monitors use one type of phosphor that 
allows graduations of intensity between white and biack (on and 
off), to provide an illusion of color and shading. Colour monitors 
use three types of phosphors throughout to produce three colours; 
Red. Green and Blue (RGB). These phosphors are grouped accu- 
rately and very closely together to produce all possible colour 
combinations depending on the combination of RGB chosen for 
display. Phosphor, for those who are not sure just yet, is a 
substance that will produce light when struck by an electron 
particle. 

In order for the picture on the screen to be of any quality, the 
electron gun controlled by the computer has to generate over 250 
visible lines and refresh them 20 times per second. Each line is 
also divided into about 180 visible points. Because of the speed 
with which each point has to be refreshed, the two VIC-II registers 
that tell us the position of the electron gun, contain only the 
number of the raster line, not each individual point. 



As mentioned in the previous paragraph, there are about 250 
raster lines displayed on the screen. However, the topmost visible 
line is raster line number 30, which is in the border area of the 
screen. The topmost line of the text area is raster line 40. The same 
is true for the bottom. The text area ends at raster line 240 (200 
screen lines, iusl like in high resolution mode), and the border 
ends at about 280, although the electron beam continues on a little 
past that. This is why sprites can disappear behind the screen 
edges. 

The two registers that contain the value of the raster line are 
located at $D01 2 and $D0 1 1 . Bit 7 of $D01 1 contains the overflow 
from $D012. That is because a memory location can only hold a 
value from to 255. If a value is written to these registers, we 
instruct the VIC-II chip to generate an interrupt at that location. 
Before the interrupt can occur, however, we have to do some 
preparatory steps. 

To start, we have to tell the VIC-II that we are enabling one or 
more of its interrupts. This is done by setting some bits in the 
Interrupt Mask Register (IMR), location $D01A. Bit one tells the 
VIC-II that we want to enable the raster line interrupt; bit two, 
sprite to sprite collision interrupt; bit three, sprite to background 
collision interrupt; and bit four, lightpen interrupt. The next three 
bits are meaningless. Bit seven is used to indicate that any one or 
more of the previous bits has been set. 

Now that we know how to enable the raster line interrupt, we have 
to adjust the IRQ routine so that we will be able to take advantage 
of the interrupt generated by the VIC-II. Whenever any chip on the 
C-64 generates an interrupt, it jumps through a vector at location 
$314-$315, which points to the address $EA31. However, this 
vector can be easily changed to point to our own custom routine. 



n our IRQ routine, we have to check if this interrupt has been 
generated by the raster line interrupt. This is done by reading the 
Interrupt Raster Register (IRR) located at $D019. This register has 
the same configuration as the IMR register. It, however, indicates 
by setting the appropriate bits which device generated the inter- 
rupt. Since we only enabled the raster line interrupt, it is sufficient 
to check bit seven, which indicates that the VIC-II generated this 
interrupt. Thus, if this bit is not set, we simply proceed with the 
usual interrupt routine. However, before we do that we have to 
clear the CIAI IRR by reading register $DCOD. 

Now that we know that the routine was generated by the VIC-II. 
we can proceed with our IRQ routine. Before doing that, we have 
to clear the VIC-II IRR register, or it will generate another interrupt 
as soon as we exit the IRQ handling routine. This is done by 
writing the value we read from the VIC-II IRR back to the IRR 
register. Having done all of this, we can finally write our program. 
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The Program 

My example is a very simple one. It highlights a line on top of the 
text screen just like in SpeedScript. As 1 mentioned earlier, the 
raster line is much more powerful. We can display more than eight 
sprites on the screen at the same time, different kinds of modes, 
more character sets, etc. We can even divide the screen into more 
than one part (split screen). Of course, we can divide it only along 
the horizontal lines. 

After doing all of the preliminary steps, we decided that this 
particular interrupt was generated by the VIC-M chip. We compare 
the value of L1NE2 to that of the RASLIN register, location $D012. if 
the value of L1NE2 is greater than that of the RASLIN register, we 
store the value of LiNE2 in the RASLIN register, change the screen 
color and exit. However, if the LlNE2's value is equal or smaller. 
we load the accumulator with the lower value of the highlighted 
line (LINE!), store it in the RASLIN register, change the screen 
color and exit. 



Here are some hints on how to utilize the raster line interrupt in 
other ways. If you do not want text to scroll into the highlighted 
line on top of the test screen, clear bit three of SDOll . This will tell 
the computer to display 24 instead of 25 lines per screen. Then if 
you want to display something in the highlighted line, just poke 
the message there. Poke the first 40 bytes o( screen memory 
usually starting at 1024 or $400. If you want to display more than 
eight sprites each time you switch between the two parts of the 
screen, just redirect the sprite pointers to the appropriate part of 
the screen. The same thing applies to the hi-res or multicolor 
screen. Just repeatedly switch in and out of these modes. 

To wrap this session up, 1 must say that raster interrupts are very- 
powerful feature of the Commodore 64 that is unfortunately almost 
unknown. It is certainly due to the fact that this kind of feature can 
be only explored and utilized if one is a machine language 
programmer. 1 hope that this article made it clearer how to use the 
VIC-li chip in other ways than the usual ones. I also hope that it 
will help you in further exploring the C-64 and in writing better 
programs. 



Ba«ic Loader 



OE 
KF 
MM 
00 
NA 
KH 
ON 
HL 
LE 

El 

CP 

EP 

EB 

FD 

GM 

IH 



100 rem save " 0:raster irq.idr " ,8 
110 rem •• by tomashrbek rocky point, newyork 
1 20 rem - * raster demo for the c64 
1 30 for j = 828 to 903; read x: poke j,x: ch = ch + x: next 
1 40 if ch<>8431 then print " checksum error! ' : stop 
1 50 sys828 

160 data 120, 169, 91,141, 20, 3,169, 3 
170dala141, 21, 3,169, 50,141, 18,208 
180data173, 17,208, 41,127,141, 17,208 
190data169, 129, 141. 26,208, 88, 96,173 
200data 25,208,141, 25,208, 48, 7,173 
210data "fS, 220, 88, 76, 49,234,173, 18 
220 data 208, 201. 58,176, 10,169, 1.141 
230 data 33,208,169, 58, 76,130, 3,169 
240data 0,141, 33,208,169, 50,141, 18 
250 data 208, 76,188,254 



PE 
PD 

AO 
PA 
CA 
GL 
DH 
NH 
BP 
EJ 
OK 
PF 
DH 
AF 
IC 
AO 
KH 
01 
BL 
LM 
JO 
LN 
JA 
HC 
PP 
NG 
ID 
PL 
LB 
FA 
OB 
Gl 
KB 
El 
DA 
BL 
DF 
ME 
DH 
AM 
PI 
EH 
CH 
PA 
AE 
LE 

GK 
KH 
KM 
GO 
DD 
IN 
OA 
IL 
GA 
01 
KA 
AB 
AD 
GL 
CD 
CK 



828 ;cassetle buffer 



PAL Source Listing 

100 rem save" 0:raster irq,pal " ,8 

1 1 sys 700 

120, opt 00 

130* 

140; 

1 50 key 

160cinv 

170raslin 

180 irr 

190 xmr 

200 colreg 

210 icr, 

220 linel 

230 line2 

240 colorl 

250 colors 

260; 

270 setup 

280 



$ea31 

$0314 

$d012 

$d019 

$d01a 

$d021 

SdcOd 

50 

58 

1 





old irq handling rouline 

irq vector 

raster line 

flag for video interrupt 

video controller interrupt flag 

background color register 

flag for timer interrupt 

start of highlighted line 

its end 

raster line color 

background color 



set 

290 Ida 

300 sla 

310 Ida 

320 sta 

330 Ida 

340 sta 

350 Ida 

360 and 

370 sta 

380 Ida 

390 sta 

400 cli 

410 rts 
420; 

430 irq new = 
440 



#<irqnev*/ 

cinv 

#>irqnew 

cinv + 1 

#line1 

raslin ; for interrupt 

raslin-1 

#$7f ;clear hi bit 

raslin-1 

#%10000001 ;permit irq by raster 

imr 



Ida 
sta 
bmi 



450 

460 

470; 

480 Ida 

490 cli 

500 jmp 

510; 

520 vicfastr = 

530 



irr 
irr 
vicrastr 

icr 



key 



;clear interrupt flag 
;interrupt by raster line 

;clear interrupt flag 
;allow raster interrupt 



540 
550 



Ida rasin 
cmp #line2 
bos greater 



;read raster line 

;greater than or equal second 
value 



560; 

570 Ida #color1 

580 sta colreg 

590 Ida #line2 

600 jmp exit 

610; 

620 greater = 

630 Ida 

640 sta 

650 Ida 

660; 

670 exit = • 

680 sta raslin 

690 jmp Sfebc 

700; 

710. end 



;nexl interrupt at 2nd line 



#color2 

colreg 

#line1 



;next interrupt 



;to wrap things up and exit 
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Switcheroo Pivot 



Chris MiUer 
Kitchener, Ontario 




An 8500 &Z80 Working Together In The CI 28 



The C-128 is a two processor syslem. Inside are an 8500 and a 
Z80, The 8500 is really just a 2mz. 6510. The Z80 is one of the 
most advanced 8 bit processers around. The 8500 is a memory 
based microprocessor. Even just to subtract the contents of one 
register from another would require some free RAM. Indirect 
addressing modes and a sparsity of internal registers make the 
8500 very reliant on zero page pointers. The Z80 is a register 
based microprocessor. It has two sets of general purpose 
registers. Each of these sets contains an accumulator, a status 
register and six, 8 bit, general purpose registers. The second set 
can be used for the interrupt flip-flop (IFF) or by the exchange 
(EXX) command to remember and restore register contents. 
Data registers can also be paired for 16 bit addressing and 
arithmetic. In addition to these there are four other 16 bit 
registers: the PC {program counter), the SP (stack pointer) and 
the (IX) and (lY) (index) registers. 



8-Bit Internal Registers 



A 


A' 


accumulator 


B 


B' 


general purpose 


C 


C 




D 


D' 




E 


E' 




H 


H" 




L 


L' 




F 


F' 


flao (status) 



16-Bit Register Pairs 

BC B = hi byte C = low byte 
DE D = hi byte E - low byte 
HL H - hi byte L = low byte 
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True 16-Bit Registers 



6. The 8-Bit Arithmetic And Logical Group 



iX 


index 


lY 


index 


SP 


stack pointer 


PC 


program counter 



The Z80 has several times as many commands as the 8500; 
some therefore require more Ihan one byte of opcode. These 
commands can be functionally divided into 13 groups, each of 
which is more extensive than its 8500 counterpart where 
counterparts even exist. 



1. The Eight Bit Load Group 

The Z80 assembler load instruction, LD. might, more aptly be 
named MOVE. There is no store instruction. Every LD will be 
followed by two operands delimited by commas. The first 
operand represents the destination and the second the source, 
so that the instruction LD($COOO),A means store the contents of 
A at $C000 whereas LDA,($COOO) would mean load A from 
$COO0. In Z80 mnemonics, parenthesis define a memory loca- 
tion; otherwise an immediate value is assumed. 



2. The Sixteen Bit Load Group 

This includes all the commands which move two byte values 
either between registers or between registers and addresses. 
Included here are the PUSH and POP instructions which is 
handy since addresses are what stacks are mainly for. 



These allow for manipulation of one byte values in pretty much 
the same way 6510 programmers are used to. Addition and 
subtraction are possible with or without carry. 



7. The 16-Bit Arltlunetic And Logical Group 

Same as above but with two byte values being manipulated. 
The logical AND, OR and XOR are not found in this group. 



8. The CPU Control Group 

Processor and interrupt modes and status flags are handled. 



9. The Rotate And Shift Group 

Many different types of shifts accessing both one and two byte 
values via a variety of addressing modes are available. 



10. The Bit Set Reset And Test Group 

These commands provide for complete bit addressing. Each 
takes two parameters. The first will specify which bit (0-7) is to 
be set. reset, or tested; the second will designate the register or 
memory location to be manipulated. For example SET3.{lX + 0) 
would set bit 3 in the address pointed to by the IX register; ie 
OR it with the number 8. 



3. The Exchange Group 

Register contents can be swapped with the secondary set or 
within the primary set. There's nothing like this on the 8500 
although we often wish there was. 



4. The Block Transfer Group 

Set a (ew register pairs and use one of these to move or fill 
memory a byte at a time or in a Z80 controlled loop. The short 
Z80 routine which we will later call from Basic to copy its ROM 
into 8500 visible RAM uses an LDIR loop. 



1 1. The Jump Group 

Conditional and unconditional jumps (direct) and branches 
(relative) are supported- Anyone who has ever had to fake a 
conditional jump in 6510 via BNE* + 5:JMPFAR or an uncondi- 
tional branch via SEC:BCS NEAR will appreciate the versatility 
of this Z80 group- 



12. The Call And Return Group 

Subroutines may also be called and returned from condition- 
ally or unconditionally. 



5. The Blfick Search Group 

As above, the Z80 can automatically control looping by count- 
ing down the value contained in the BC pair and incrementing 
the address pointed to by DE, Ranges of memory are compared 
with the A register until a match is found or the BC pair 
decrements to zero. 



13. Input Output Group 

These are specialized load and store instructions. In the C-128, 
when accessing 1/0 memory (DOOO-DFFF), IN and OUT com- 
mands should be used instead of LD. 
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Programming The Z80 In 128 Mode 

The Z80 brings a convenience and conciseness to ML program- 
ming that is sure lo please and impress 6510 assembly lan- 
guage programmers. I hope the above has whetted your 
appetite for doing a little exploring. !t will inspire you to know 
that this microprocessor can be used in conjunction with (not at 
the same time as) the 8500 in the C-128, even from Basic; 
switching between them is not much more difficult than 
switching between memory banks once you know how. 

Working Together 

In order to figure out how the Z80 and 8500 worked together, it 
was necessary to disassemble some Z80 ROM; in order to 
access this ROM it was necessary to enter, and get back alive, 
from Z80 mode — sort of a catch 22 situation. One hundred 
cups of coffee and about a thousand crashes eventually pre- 
vailed. Disassembling the boot sector on the CP/M disk got the 
ball rolling. 

Bit at $D505 (54533) controls the microprocessor mode. If it is 
turned on then the 8500 becomes active; if it is off then the Z80 
takes over. 

You can*t just poke it off (believe me). A little housekeeping is 
first in order: 

Disable 8500 interrupts via SEl because you are going to switch 
to a memory configuration in which Kernal ROM is not visible- 
Store a $3E (62) at $FFOO (the configuration register). This 
leaves I/O RAM intact but switches everything else to RAM 0. 

You're still not quite ready. The Z80 PC register holds $FFED 
after 128 initialization. There is a NOP ($00) there. The first 
actual Z80 command goes at $FFEE. If you look through the 
monitor you will see a $CF there. This is an RST8 opcode byte 
which will cause the Z80 to jump (ReSTart) to its own ROM 
routine at 0008. You do not want this. After moving some 8500 
code into place at $3000. the Z80 would return control lo the 
8500, The 8500 wakes up exactly where it left off after you 
switched to the Z80. If you followed this switch with a NOP (lets 
not wake it up too fast) and then a JMP $3000 (like the 
operating system does) you would go into the 128's boot CP/M 
routine. This is pretty useless from a programming standpoint, 
so don't bother. Instead, put your own Z80 code at $FFEE. 

Before you do any Z80 subroutine calls, you should set its stack 
pointer register (SP) lo point to some area that will not interfere 
with your code or Basic, Switcheroo points it to $BFFF before 
calling a user routine. The return address goes into memory at 
$BFED in this case- 

The last thing the Z80 will have to do is to turn the 8500 back 
on. There are two ways to do this: 



LD A.$B1 
LD ($D505).A 

This is inferior. There is a bleed through condition in the Z80 

mode using this type of store. A $B1 will also be written to 
underlying RAM. (This is where my Z80 cross-assembler sits, 
making this feature especially bothersome.) 

Here is the proper way: 

LD BC,$D505 
LD A,$B1 
OUT (C).A 

Not only does bleed through not occur using OUT storage but 
I/O memory between SDOOO and SDFFF can be written to. In 
our Basic coding sample the background ($D021) and border 
($D020) are poked via a Z80 OUT. This would not work using 
LD($D020).0 which would put the value in RAMO. 

Ordinarily you would have to bear in mind that the Z80 might 

not necessarily take off at $FFEE the next time you activated it. 
It, like the 8500, wakes up where it went to sleep. The best 
procedure for switching back and forth is to try to always put 
the microprocessors to sleep in the same spots. These switches 
could be followed with jump commands. Before invoking them 
you could set the jump address for the other microprocessor lo 
anywhere you hke. Z80 ROM puts a RET ($C9) command after 
the 8500 switch allowing the Z80 to CALL the 8500 from 
anywhere and return when the 8500 switches back. Switch- 
eroo puts an RTS ($60) after the Z80 switch so that the 8500 can 
JSR the Z80, This also makes the Switcheroo routine com- 
pletely relocatable. 

Now it just so happens that there are two routines high in RAM 
through which the two microprocessors can invoke each 
other. The 8500 invokes the Z80 at $FFD0. When the Z80 
returns control, the 8500 picks up at $FFDB. Leave the NOP 
($EA). You can take over at $FFDC (65500). 

The Z80 invokes the 8500 at $FFEL When the 8500 returns 
control, the Z80 picks up again at $FFEE — and so on and so on. 



The Switcheroo Pivot 

Switcheroo handles the Z80 stack, the user call, and controls 
the "sleepy time'' program counters for the two microproces- 
sors while making use of the RAM routines at $FFE1 and 
$FFDO, The Switcheroo pivot thus allows you to easily execute 
hybrid programs and, as our example shows, even call the Z80 
from Basic. 

The Switcheroo code sits at 3000, high in the 128"s tape buffer. 
The address of the Z80 code to be executed should be in the 
8500's X (= low byte) and A ( = high byte) registers. These can 
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be passed directly (rom ML or even Basic via (he 128's new 
improved SYS command, which is exactly what our little Basic 
example does. The program pokes some Z80 code in a( $6000, 
calls Switcheroo to execute it and then continues in Basic. The 
Z80 code copies its ROM into RAM at $8000. Notice how easy it 
is to code this move (4 instructions. 11 bytes). The Z80 then 
pokes the screen colours just to show off. 

The Switcheroo pivot isn't long at all, and should pave the way 
for some serious exploring of the Z80 language and environ- 
ment in the 128 by 8500 buffs. 



Switcheroo Pivot Source Listing 



Switcheroo Pivot Basic Loader 



KM 
01 

cc 

FD 
NF 
KA 

OK 
BK 
EA 
JH 
MD 
BB 



H 

LN 

FD 

DL 

JP 

LG 
GA 
HM 
EM 
LM 
FO 
NC 



100remsave''0:switcheroo,bas",8 

110 rem •• this program will poke some z80 

1 20 rem ♦ ' code into memory at $6000 and then 

130 rem ** execute it via the switching 

140 rem" routine at 3000. 

150: 

160 rem •• now put z80 code into memory 

1 70 for x = 24576 to 24598; read b; poke x,b: next 

1 80 sys 3000,96,0: rem call z80 at $6000 

190 print " back alive and well!!! ': end 

200: 

210 rem ♦* the 28O code to copy 4k rom to $8000 

in ramO ♦♦ 
220 data 33, 0, 0;remldhl,0 

230 data 17, 0,1 28 :rem Id de.$8000 
240data 1, 0, 16 :remld bcSlOOO 
250 data 237, 176 :rem Idir 

260 rem ■- 28O code to poke background and 

border colour ♦♦ 
270 data 62, :remlda,0 
280 data 1, 32, 208 :rem Id bc,$d020 



290data237, 121 
300 data 60 
310 data 12 
320 data 237, 121 
330 data 201 



:remout(c),a 
:rem inc a 
:rem incc 
:rem out{c),a 
: rem ret 



DM 


100 rem save" 


O;switcheroo.pa ", 


8 


LN 


110open8,8,- 


i,'0;i 


3W tcheroo " 




JE 


120sys700 








FK 


130 .opt 08 








GO 


140* 


— 


3000 




MA 


150; 








HN 


1 60 z80pc 


-HtW- 


Sffee 


;z80 wakes up here 


FA 


170invokez80 


^ 


$ffd0 


; by 8500 


AL 


1 80 c1 28pc 


z= 


Sffdc 


;wakes up here 


B 


190invoke12e 


1 ^ 


$ffe1 


; by z80 


EH 


200 z80stk 


^ 


Scfff 


;safe p ace for stack 


E 


210 










AL 


220 


• •• 'switcheroo' for hybrid processing ••• 


GJ 


230 


--- by Chris mi er, may 20, 1986 


GG 


240 










ND 


250 


sty 


$ff01 


;set ramOconJig 


AB 


260 


dy #$31 


; d sp,($bfff) 


BR 


270 


sty 


z80pc 




FF 


280 


dy 


#<z80stk 




MO 


290 


sty 


z80pc + 1 




FG 


300 


Idy 


#>z80stk 




DA 


310 


sty 


zSOpc + 2 




GL 


320; 








GG 


330 


dy 


#$cd 


jcalOsr) opcode 


EC 


■ 340 


sty 


z80pc+3 




NC 


350 


stx 


z80pc + 4 

1 


;subrout Headdress 
(sys parameters) 


ON 


360 


sla 


z80pc + 5 







370; 








NH 


380 


da 


#$c3 


;jp(jmp) opcode 


NN 


390 


sta 


z80pc + 6 


;invokec128when 
can't contnue 


KL 


400 


da 


#<invoke128 


1 


GB 


410 


sta 


z80pc + 7 




KM 


420 


da 


#>invoke128 


1 


NC 


430 


sta 


zBOpc + 8 




DC 


440; 








AO 


450 


Ida 


#$60 


; rts opcode 


DG 


460 


sta 


c128pc 




BM 


470 


jsr 


invokezSO 




GF 


480; 








KO 


490 


da 


#0 


;back to basic 


MA 


500 


sta 


$ffOO 




M 


510 


ci 






EP 


520 




rts 
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Program Trace Monitor 



Richard Stringer 
Dallas, Texas 



- A profiler for Commodore 64 machine language programs 



This program will trace the execution of any program and show 
tiow often each section of the program is executed, ft is primarily 
designed to be used with machine language programs, but can be 
used for programs in any language. The output, in the form of a 
chart, can be used either by another program or the programmer 
himseft to provide information on the execution speed, memory 
use. location of called subroutines, and general efficiency of the 
code. 

The output of the program is in the form of a chart, which is sent to 
the printer due to the large amount of data generated. No printer 
codes are used, so any printer should work. Along the left side of 
the chart is the high byte of addresses in the traced area, and along 
the top are the low address bytes, in increments of 16. At the 
intersection of a high/low address is found a hexadecimal value 
which indicates how many times code has been executed wfthin 
that 16-byte area during the trace period. With this layout, you can 
quickly look up areas of interest in your program to see if a section 
is being executed, and if so. how frequently. 

This program works in an atypical manner for a trace program on 
65xx series computers. Since a great deal of programs use or alter 
the system IRQ interrupt, 1 found that I could not insert the trace 
vector into this interrupt and stilt get acceptable performance. 
Another more serious difficulty was the frequency of the IRQ 
interrupt. On the Commodore 64, the IRQ frequency is set at 60 
Hertz (every 1/60 seconds). This is far too slow to trace an 
assembly language program. Also, many programs disable the 
system interrupt with a SEI instruction, which would shut off the 
trace. To avoid these problems, the program uses the NMI (Non- 
Maskable Interrupt) as its interrupt source. 

The NMIs can occur at a user-selected rate, allowing you to 
determine how many times per second the program makes a 
count. You can select frequencies from about 9800 per second 
down to less than 50. The frequency is varied by placing a value in 
location 828 decimal. (A value of zero will defauft to one.) This 
value is used as the upper 8 bits of a timer which generates an NMI 
whenever it counts down to zero. The lower 8 bits is supplied by 
the variable CCYCLE in the source listing, which is normally set to 
too. The 16-bit timer value thus formed indicates the number of 
cycles between interrupts - on the C64, a cycle is I/97777S 
seconds. 

The trace is performed by recording the data from the program 
counter of the interrupted program. This is left on the stack as part 
of the interrupt sequence, and can be accessed by using the stack 
pointer as an index into the stack and using indexed addressing. 




The actual value of the program counter is not Stored, The data 
buffer is arranged as a two-4imensional array and the data is used 
as an index into this array. On program initialization, this array is 
set to zero. The correct array element is simply incremented each 
time an address is read from the stack. The counts are stored as 1 6- 
bit values, allowing counts up to $FFFF, after which an overflow 
counter is incremented. Also, a frequency counter is maintained to 
show how many samples were taken. This is needed to interpret 
the individual counts. The frequency counter is stored as 24 bits, 
and the trace shuts off automatically when this counter overflows. 

The Trace cannot be active during Input/Output operations due to 
timing conflicts. For this reason I have implemented two jump 
vectors to stop and start the trace without resetting any program 
variables or the accumulated counts. A call to KILL will slop the 
trace and turn NMI interrupts off. RESET will resume execution 
and preserve any data in the buffer. A call to CHART at any time 
will print the chart showing the current counts. Output can be 
stopped by pressing the SHIFT and COMMODORE keys together 
It is important to call KILL before calling CHART to reset the 
interrupt vectors. 

Using The Program 

Assuming the program is assembled at $8000, the entry points 
look like this: 

trace = 32768 

kill = trace + 3 

chart = trace +6 

reset = trace + 9 
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To start the program once it's in memory, do a SYS TRACE. This will zero 
all counis in the buffer and begin the trace. When you wish to see the 
chart, do a SYS KILL: SYS CHART. KILL and RESET are used as explained 
above. 

The start and end addresses for which the trace takes place are defined in 
the source code by the variables CBEGIN and CFINISH, As listed, these 
are sel to $A0 and $FF respectively, to trace all code from $AOO0 to 
$FFFF: the ROMs and the often-used $CO00-CFFF block of RAM, Change 
these and re-assemble the source to trace other areas. When assembling, 
note that this source was assembled using the Commodore assembler. 
The mathematical expression used in the subroutine ZBUFF may cause 
some assemblers trouble - modify it or compute the values by hand if 
necessary for your assembler. 

All output is in the form of hexadecimal numbers. Leading zeros are 
suppressed. Zero values are indicated by blank spaces on the chart. 
Hexadecimal representation was chosen for the counts to fit more 
information on an eighty column printout. 

Interpretation of the chart can be done in several different ways. If the 
objective of the trace is to improve program performance, the amount of 
time spent in each section of code can be analyzed to determine what 
portion of the code is using the most processor time; the most-used 
routines can then be optimized. If certain branches are never being 
taken, they can be removed. Branches can be arranged so that the one 
taken most often is checked for first. There are a great many such small 
changes that can result in a remarkable increase in execution speed. 

If your program is not working at all. a trace chart can show what sections 
of ocde are being executed. This is usually all you need to know in order 
to get it running- Once the problem has been located, the fix is usually 
quite simple. If the program is going into an endless loop, changing the 
trace program to perform a JSR CHART before it ends due to frequency 
counter overflow will let you see where the loop is taking place- If you are 
jumping to a location out of the program area for some reason, you may 
be able to see where the jump is going. This is sometimes enough 
information to determine how the jump took place. 

Running a trace on a BASIC program will show you a great deal about 
how the interpreter works. It will show the location of ROM rouhnes. It 
will also show which routines are using the most Hme and resources, IRQ 
routines, both user and KERNEL, are are also traced. All of this informa- 
tion can be useful to a programmer- 
It anyone would like to correspond with me regarding this program or 
any topic related to assembly language programming, feel free to contact 
me at this address: 

Richard Stringer 

7805 Villa Cliff *l 11 

Dallas, Texas 75228 

Program Trace Monitor: Generates PRG object file on disk 



PE 
OP 
GK 
JD 
lA 
OK 
GO 
FO 



100 rem* dataloaderfor "trace" • 

110 tor i = 1 to883:reada:cs = cs + a;next 

1 2Q^f CS095794 then print " !data error! " :stop 

130 rem data ok, write to file 

1 40 open 1,8,1," O;trace.com ' 

150 restore 

leOfori^l to 883; read a: print#1,chr$(a);: next 

1 70 close 1 : end 



IC 


lOOOdata 0,128, 76, 12,128, 76, 97,128 


IF 


lOIOdata 76, 39,129, 76, 29,128, 32, 38 


AM 


1020 data 130, 169, 0.141,122,131,141,123 


NA 


1030data131, 141, 124.131, 141, 125, 131,173 


IF 


1040data 24, 3,141.114,131,169,123,141 


HA 


lOSOdata 24, 3,173, 25, 3,141,115,131 


LF 


1060data169, 128.141, 25, 3.173, 60, 3 


IK 


1070data208. 5.169, 1,141, 60, 3,141 


LE 


1080 data 6.221.169, 0,141, 7,221,169 


HD 


lOOOdata 0,141, 5,221,169,100,141, 4 


KH 


1100data221,120, 169, 65,141, 15,221,169 


IB 


inOdata 1,141, 14,221,169,130,141. 13 


KP 


1120data221, 88, 96,169,127,141, 13,221 


EE 


1130data169, 0,141, 15,221,141, 14,221 


LO 


1140data173, 114, 131,141, 24, 3,173,115 


00 


11 50 data 131, 141, 25. 3, 96, 72,138, 72 


FK 


1160 data 152, 72,169, 2, 44, 13,221,240 


FN 


1170data 3, 76,149,128, 32, 97,128,169 


JC 


1180data127, 141, 13,221, 76, 76,254,169 


FM 


1190data127,141, 13,221,169, 0,141, 14 


AG 


1200 data 221, 141, 15,221,186,189, 5, 1 


BN 


1210data141,121,131,189, 6, 1,201,160 


FH 


1220 data 240, 2, 144, 16, 201 , 255, 240, 2 


OL 


1230data176, 10, 56,233,160,141,119,131 


NN 


1240data 88, 32,200,128, 32, 51,128, 76 


JP 


1250 data 129, 234, 32, 29,130,169, 0,141 


FA 


1260datal20, 131,173, 121,131, 41,240, 74 


FO 


1270data 74, 74,141.121,131,173,119,131 


AN 


1280data162, 4, 10. 46,120,131,202, 16 


LC 


1290 data 249, 101,251,133,251, 165,252,109 


OC 


1300data120, 131,133,252, 172, 121,131,177 


PI 


1310data251, 24,105, 1,145,251,200,177 


IH 


1320data251, 105. 0,145,251,144, 15,169 


EA 


1330data 0, 109, 125, 131, 141, 125, 131, 169 


LG 


1340data255, 145,251,136, 145,251,238, 122 


JP 


1350data131,208, 13,238,123,131,208, 8 


HG 


1360data238, 124, 131,208, 3, 32, 97,128 


BM 


1370data 96,169,160,141,117,131, 32,250 


KD 


1380data129, 162, 4, 32,201,255, 32, 71 


BH 


1390data130, 32, 29,130,169, 13, 32,210 


DJ 


1400 data 255, 173, 117,131,240, 77,201,255 


GL 


1410data240, 2,176, 71. 32,197,129,169 


LJ 


1420data 58, 32,210,255,169, 32, 32,210 


BN 


1430data255, 160,255,200,192, 32,240, 32 


FL 


1440da1a173, 141, 2,201, 3,208, 7,169 


MP 


1450data 13, 32,210,255,144, 37,177,251 


LK 


1460data 141, 116, 131,208, 45,200,177,251 


KO 


1470dala208, 43, 32, 57,130, 76, 89,129 


FA 


1480data238, 117, 131, 24,165,251,105, 32 


DN 


1490 data 133, 251 , 165, 252, 105, 0, 133, 252 


FE 


ISOOdata 76, 58,129, 32, 71,130, 32, 96 


MO 


1510 data 130, 169, 4, 32.195,255, 32,204 


EB 


1520data255, 96,200.177,251,140,113,131 


JG 


1530data172, 116, 131, 32.182,129.169, 32 


AG 


1540 data 32,210,255,172,113, 131,208, 163 


DC 


1550dala140, 61, 3, 32,197,129,173, 61 


HO 


1560 data 3, 32,220,129, 76,212,129, 32 


CG 


1570 data 220, 129,201, 48,208, 8,192, 48 


JB 


1580 data 208, 7,160, 32,208, 3, 32,210 


AN 


1590 data 255, 152, 32,210,255, 96,170, 41 


PG 


1600 data 240, 74, 74, 74, 74, 32,240,129 


Nl 


leiOdata 72,138, 41, 15, 32,240,129,168 


GD 


1620data104, 96,201, 10,144, 3, 24,105 


NH 


1630data 7,105, 48, 96,169,255.141, 16 


DK 


1640 data 130, 173, 24,208, 41, 2,240, 5 


JF 


1650 data 169, 7,141, 16,130,169, 4,162 
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ID 


1660 data 4,160,255, 32,186,255,169, 


Program Trace Monitor: Sample Output 




LE 


1670data 32,189,255, 32,192,255, 96,169 


00lO2O3O4O506O7O8090aObOcOdOeO *0 




BK 


1680data126, 133,251,169, 131,133,252, 96 


at: 
03: 
b3: 










n r 


J 
J 


■ 






r 






CF 


1690data 32, 29,130,162, 12,160, 0,152 










01 


01 






Oc 




KK 


1 700 data 145, 251 , 200, 208, 251 , 230, 252, 202 


as 


11 








■ ■ 






L 

r 
r 




HM 


1710 data208, 246, 96,140,113,131,160,209 


b6: 


r 


L 






L 


; ; 




■ L 




JL 


1720data169, 130, 32, 79,130,172,113,131 


a7; 
as 07 


Oa 02 


; : 03 


02 lb 09 Ob 12 09 
: ; : : ; 02 




AA 


1730data 96,160, 24,169,131, 32, 79,130 


a9 02 03 05 OJ : : 03 Oa 01 02 

aa: , 01 OJ 03 . 01 03 , 01 Od 07 04 03 02 02 




BN 


1740dala 96,132, 53,133, 54,160, 0,177 


ab: 


. 09 IB 19 2d : . ; . : 




KO 


1750data 53,240, 6, 32,210,255,200,208 


ad: 


01 04 03 01 01 Od 16 lb 2H 02 13 01 Oa 




CM 


1760data246, 96,160,234,169,130, 32, 79 


ae 07 01 09 Oa 08 13 Oa Ob 2e 14 03 Oc 05 .05 15 
af . 13 07 07 06 : 01 02 .06 Oa 05 




HA 


1770 data 130, 172, 60, 3,169, 0, 32,182 


bO. 03 03 01 


02 06 20 Oc 03 01 06 Oa 52 




01 


1780 data 129, 160, 21,169,131, 32, 79,130 


bl : 24 23 
b2: 


01 Ob 06 . 02 02 . . 

■ L ■ r n ■ 
, r , _ J L J L ■ ■ 






KB 


1790data160, 214, 169, 130, 32, 79,130,160 


b3: 


n ■ 

■ ■ n - 


: : : ; 07 01 






HO 


ISOOdatalOO, 169, 0, 32,182,129,160. 21 


b4: 
b5: 


J ■ ■ n 

01 : : 


. 06 la 09 Oc 04 04 Ob 02 

1 n r - ' ' ' 




CD 


1810data169,131, 32, 79,130,160, 0.169 


b6: 

b7; ; . . _ 


J ■ ■ ■ 


■ 01 06 OS Od 03 07 04 

m ni 




BH 


1820 data 131, 32. 79,130,173,124,131, 32 


bS Of Oe 02 06 06 21 5e 5b 34 4a !2 20 55 3f 28 




MC 


1830 data 220 J29. 32,212,129.173.123,131 


b9 72 7el67 30 2d 05 05 03 71 6t ce laO . . 
ba; Od 16 IB 3bi871e92ce 36 32 21 Oc 09 36 39 




KD 


1840data 32.220,129, 32.212.129,173,122 


bb; 03 ; 10 03 38 52 23 Ic 03 19 10 10 Ob Oa Ob Oc 
be. 67239 15 2f 3a 24 3b 03 . la Oc Od 06 02 01 41 




GE 


1850data131. 32,220,129, 32,212,129,160 


bd 15 03 OB . 12 4a 3c : : : : 01 05 






HH 


1860dala 21,169.131, 32. 79.130,160, 92 


be. 03 14 Od 07 04 01 63111 ce 33 2b 27 Ic 02 

tH 04 ni :::.:;: 02 :. : 








LF 


1870 data 169. 131. 32, 79.130,173,125,131 




























AM 


IBSOdala 32,220,129, 32.212.129,160, 21 


c1 
c2 


























Kl 


1890data169,131. 32. 79.130.169, 13, 32 


C3 




n 






















CC 


1900 data 210. 255, 96. 32, 32, 32, 58. 


c5 
























NO 


1910 data 13, 67, 76, 79. 67, 75, 32, 67 


c6. 
c7. 


























JO 


1920 data 89, 67, 76. 69. 32, 40. 65, 41 




























HG 


1930data 32, 32, 91. 0, 13, 13, 13. 67 


C9 


























. lA 


1940 data 89, 67, 76, 69, 83, 32. 32. 32 


cb. 

CC 


























KL 


1950 data 32, 32, 32, 40, 66, 41, 32, 32 


cd 


























FO 


1960data 91, 0, 13, 83, 65, 77, 80, 76 


ce 
ct 


























LD 


1970 data 69, 32. 67, 79, 85. 78, 84, 32 


<K) 

d1 
02 


























MJ 


1980 data 32. 32, 32, 32. 91. 32, 0, 32 


























PM 


1990 data 93. 0. 32. 32, 32. 32, 32, 48 


d3 
d4 


























JB 


2000 data 48. 32, 32, 49, 48, 32, 32. 50 


dS 
<I7 


■ 
























BC 


2010data 48, 32, 32, 51, 48, 32, 32, 52 


























PC 


2020 data 48, 32, 32. 53, 48, 32. 32, 54 


dS 
dB 


























ND 


2030 data 48, 32, 32. 55, 48, 32, 32. 56 


d* 


























ME 


2040 data 48, 32, 32, 57, 48, 32, 32, 65 


db 
dc 


























LF 


2050 data 48, 32, 32, 66, 48, 32. 32, 67 


dd 

de 
df 


























JG 


2060 data 48, 32, 32, 68, 48, 32. 32, 69 






^ L L J ■ ■ ■ r 
r n - ^ 


L 














DF 


2070 data 48, 32, 32, 70, 48, 0, 13, 79 


eO : 01 03 02 Oa Ob 
a^ la Oa 


L 














MM 


2080 data 86, 69, 82, 70, 76. 79, 87, 83 


e2. 

_4 . 


_ _ L 

r n - 


; 01 06 03 02 










MC 


2090 data 32, 32. 32, 32. 32, 32, 32, 32 


e4. 


r n - 


: : : : 01 67 








BL 


2100 data 91. 32. 


e5. 01 02 : 

e6 ■ " . " . . _ _. 


01 04 05 02 

17 le 37 4f 












67. Ob 3b 30 16 17 : 01 Oe 14 


Program Trace Monitor: Demo Program (note line 1 10) 


eS . 01 07 02 49 06 . 05 Id 
e9 6e 50 42 02 05 07 01 36136d89 9B 








ea. a2 39 a3 la . . Ot Oe 25 07 02 03 06 03 






NN 


1 00 If peek(3276e) + peek(32769) = 88 then goto 1 60 


eb 
ec 






. (JQ Utl US Ul 

■ ■ n ■ 








r n 

■ 4 






DN 


110 load" trace.com', 8.1 


ed 
ee 








. oa 01 

J ■ ■ ■ r 








■ n 








NE 


120 this program will demonstrate the 




















■ 








NK 


130 use of the trace program from basic 


1U 
fl 
















: 28 14 








HE 


140 the same technique is used to trace 


t2 
13 
















L ■ r n 
L J ■ ■ 

: 01 






DO 


150 an assembly anguage program 


14 
















L J 






CO 


160 poke 56,128: rem protect program from basic 


t6 










; 07 Of 06 Oc 05 05 02 




EG 


1 70 trace = 32768; kill = trace + 3; chart = kill + 3 


17 

4A 












■ r n r - ' 






LH 


1 80 poke 828, 1 0: rem set frequency 


ID ' 
















r n 








FM 


1 90 sys trace: rem start trace 


ia 
fb . 
























DJ 


200tort=1 lo110:d=sin(t);f$ = str$(inl(d) + 1) 


fc : 
it* 
























GF 


210 poke 53281 ,peek(53281) and 15 


ra : 

re . 




r ^ _ J _ ■ 
L J ■ ■ ■ r 










; ; 








IJ 


220 print peek (53281 ). print d,f$ 


tt ; . . 01 OB ; : . 10 08 ; 
00l0 2030405060 70 8090a0b0c0d0e0 fO 




NM 


230 if t = 1 00 then gosub 250 






CK 


240 next: end 


cycles (b) [ Oa ) 




PB 


250 sys kill 


dock cycle (a) 1 64 ] 
sample count [ OOSScb J 




KA 


260 sys chart 


overHows [00] 




KC 


270 return 




\ ThcTramoclor S4 
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Pn^ram Trace Monitor: PAL Source Cod« 


MN 


lB60,miNi on timer b underflow a 


OA 


2740 beq issame 




GB 


1870 ;nmi is generated. vector points 


MF 


2750 bcs bugout 




EG 


1000 Open! .8,1. 'O.lrace.com' 


El 


ISBO.loisiprg 


AG 


2760 issame sec 




DM 


1010sys700 


JN 


1890; 


AJ 


2770 sbc #cbegin 




KA 


1020.oplol 


JP 


ISOOsetirq jsr zbuff 


EG 


2780 sia hibyte 




MH 


1030, 


BG 


1910 Ida 00 


MF 


2790; 




BG 


1040 [program name-lrace/nmi 


A1 


1 1920 sta freq 


KO 


2800 ;we need to albw system irq 




AJ 


1050; ■ 


ME 


1930 sta freq + 1 


ON 


2810 ;requests here because we are 




AH 


1060 ipurpose -lo trace and record 


IKF 


1940 sta freq -^ 2 


HG 


2620 ;stealing so much cpu time 




KM 


1 070 ;the data from the <pc> in order 


FF 


1950 sta vflag 


El 


2830; 




KJ 


1 080 ;to analyze the pefformar)ce of 


JO 


1 960 settwo Ida vector 


GK 


2B40 <M 




DK 


1090 ;a program 


OC 


1970 sta oldvec 


JM 


2850 jsr mainpg ; index array 




CM 


1100; 


LP 


1 1980 Ida #<tslprg 


NP 


2860 bugout jsr setimr 




FN 


1110;lastupdale-12/36/85 


HP 


1990 sta vector 


DH 


2870 jmp Seaei 




GN 


1130, 


KK 


2000 kJa vectors 1 


GL 


;2e80; 




KA 


1 1 30 ;aurhor - r w stringer 


IB 


2010 Eta oldvec + 1 


CO 


2890 ;calculate array index and 




IM 


1140: 7805 villa cirff #111 


PB 


2020 kJa #>tstprg 


OF 


2900 ;ir>crement the proper array var 




LG 


1150; dalLas lexas 7522a 


GA 


2030 sta vector + 1 


CM 


2910. array is- arrav[0 xx.O. 15) 




GP 


1160; (2l4)-327-3039 


8G 


2040 seltmr Ida milli 


AN 


2920 .of double integer |0. . .65535| 




lA 


1170; 


AH 


2050 bne stEimb 


HG 


2930 ;arrav index ft calculated as 




LG 


1 180 .special note- i/o cannot operate 


JP 


2060 fda #1 


NH 


2940 ; {h ibyte-#cbegin)- 32 + 




HC 


1 190 ;wrthnmi interrupts Junciioning 


JP 


2070 sta mini 


LJ 


29S0.(]obyfe/16H + 




GH 


1200 ;[he unsei routine (kill imp 


LM 


2080sttimb sta iblo 


00 


2960 . buffer start address 




IM 


1 2 1 jvector ) should be called before 


FB 


2090 kJa #0 


GG 

1 


2970 ; over flow is checked for and 




AH 


1220;any inpul/outpul 


OK 


2100 sta tbhi 


'gc 


2980 .sample count incremented sample 




CD 


1230, -buffer sJze in the 


HN 


2110 Ida #>ccycle 


KC 


2990 ;count is maintained as a 24 bil 




NG 


1240 ipresent configuration islimrted 


AM 


2120 sta tahi 


NB 


3000 ; integer (2t24)-l. trace is 




IC 


1250;lo3kbvtes.thsisroomfoFa 


PO 


2130 Ida Kccycle 


NA 


3010 .terminated on sample overflow 




El 


1 260 iirace of 24kbyles of address 


IP 


2140 Eta talo 


NH 


3020 .a flag is set on var overflow 




KL 


1 270 ispace to trace more space the 


PP 


2150 && 


KF 


3030 ;var's are kept in Jo/high formal 




GE 


1 280 ;program will need to move the 


LA 


2160 Ida *'W1000001 


GF 


3040. 




BK 


1 290 .buflei or remove basic from the 


LP 


2170 Eta tbclrf 


JE 


3050 mainpg jsr setbuf 




EC 


1300 icurrent address space. r)0 basic 


LB 


2180 Ida #%00000001 


PN 


3060 Ida #0 




MA 


1310 iroutines are used 


' NA 


2190 sta taclrl 


E 


3070 sta hjbyte+1 




OJ 


1320; 


iBO 


2200 Ida *%1 0000010 


CG 


3080 kJa lobyte 




IK 


1330; 


OP 


2210 Sta ire 


PA 


3090 and #$t0 




JA 


1340; system equates 


KD 


2220 clJ 


GD 


3100 Isr a 




KN 


1350 zpg = Sfb 


OK 


2230 rlS 


AE 


3110 Isr a 




KB 


1360 temp = 53 


GD 


2240; 


KE 


3120 Isr a 




GE 


1370 skey = 653 ;shft/ctrl/cmdreflag 


00 


2250 :rese1 vectors to normal and 


CN 


3130 sta lobyte 




GE 


1380 cbegin = SaO itrace starl address 


ML 


2260 ;turn interrupts oH.needed for 


01 


3140 Ida hibyte 




BC 


1390 cfinsh = Sff itrace end address 


PP 


2270 ,1/0 operations 


NJ 


3150 Idx #4 




BH 


1 400 .above set range for trace 


OF 


2280; 


FJ 


3l60mul32 asl a 




FJ 


U 10 ccycle - 1 00 ;cydG couni timer a 


GD 


2290 unset Ida *irqoff 


HM 


3170 ro hibyte + 1 




BK 


1420milli = 828 ;timer b count 


IF 


2300 Sta ire 


DC 


3180 dex 




DF 


1430vector = 792 ;nmi vector 


BP 


2310 Ida #0 


DP 


3190 bpl mui32 




OP 


1440 irqoff - %01 111111 ;»nferrupl mask 


BJ 


2320 sta tbctrl 


JK 


3200 adc Zpg 




MA 


I450tyiiask = %00000010,limerbmask 


JJ 


2330 sta tactr 


PP 


3210 Sta zpg 




GO 


1 460 ta = Sdd04 ittfner a latch low/ 


CG 


2340 Ida oldvec 


EK 


3220 Ida zpg ■*- 1 




LH 


1470tahi = Idd05 ; hi 


PF 


2350 Sta vector 


MJ 


3230 adc hibyle + 1 




ON 


1 480 taclrl = SddOe :timer a control reg 


D 


2360 Wa ddvec+l 


GP 


3240 Sta zpg + 1 




PE 


I490tblo = Idd06 itimer b latch low 


KF 


2370 sta vector + 1 


MG 


3250 Idy lobyte 




CK 


iSOOtbhi = Sdd07 ; hi 


ID 


2380 flS 


]J 


3260 Ida (zpg),y 




JP 


ISlOtbclh = $ddOf :timef bconlrdres 


MM 


2390; 


MD 


3270 cte 




AB 


1520 ire = IddOd ;inlerru pi control reg 


FA 


2400 .Slop interrupts. pull address 


PK 


3280 adc #1 




HA 


1530, kernal equates 


OE 


2410 .of next program step from stack 


OF 


3290 sta (zpg),y ; indexed 




NC 


I540sellfs = Sflba 


DN 


2420 ;check rf in range subtract offset 


CJ 


3300 iny , element 




AC 


1550setnam = Jffbd 


G 


2430 ,from hibyte and store store 


KM 


3310 Ida (zpg),y 




HF 


1560 open = IffcO 


El 


2440 ,lobyte and |sr to array routine 


FN 


3320 adc #0 




JE 


1570chroul = $ftd2 


KG 


2450 ;on returrj turn interrupts on 


MB 


3330 sta (zpgj.y 




JH 


1 580 close = Iff c3 


KJ 


2460 ;reset tJmers and exit. 


NL 


3340 bcc testl 




CC 


1590clrchn - Sffcc 


MB 


2470; 


BA 


3350 Ida #0 




OE 


leoochkoul = $ttc9 


EH 


2480 istprg pha 


LJ 


3360 adc vflag 




AM 


1610; 


OG 


2490 ttt 


BO 


3370 sta vilag 




JF 


1620 ;the difference between cbegin 


AE 


2500 pha 


BP 


33B0 Ida #$tt 




IH 


1630 ;and cfinsh can tje no larger than 


Fl 


2510 lya 


IF 


3390 Sla (zpg).y 




KF 


1640 .SSIihe buffer at the present 


EF 


2520 pha 


DA 


3400 dey 




DF 


1650 ilocalion is only 3k long 


FM 


2530 Ida #bmask 


MG 


3410 Sta [zpg),y 




OJ 


1 660 ; in order to trace the complete 


BF 


2540 bit ire 


01 


3420 testl inc freq 




GO 


1670 ,64k address space you will rteed 


HJ 


2550 beq oul|mp 


BE 


3430 bne test2 




MA 


1680 ,to allocate an Bk buffer the 


LO 


2560 jmp swk:h 


EB 


3440 inc freq + 1 




LH 


1690 ;chart wril be 256 hnes Jong, the 


KP 


2570 outjmp jsr unset 


FF 


3450 bne tesi2 




GF 


1 700 ibufter space formula e 


IB 


2580 Ida ttirqoff 


MC 


3460 mo freq + 2 




IP 


1 7 1 ibufler = (#kbytes to traceVS 


KH 


2590 sta irc 


JG 


3470 bne lest2 




OC 


1720; 


FH 


2600 jmp Sfe4c 


PL 


3480 jsr unset 




10 


1730- =■ SeOOO .program orgin 


LE 


26l0swich kla #irqoff 


GL 


3490 test2 rls 




CE 


1740; 


IJ 


2620 sta irc 


CC 


3500; 




OE 


1750, jumpvectors 


BD 


2630 Ida #0 


Bl 


3510 ;print results in chart form 




MJ 


I760trace jmp setirq ;8tart 


PM 


2640 sla taclrl 


El 


3520 ,with proper for mating, leading 




KA 


1770kiH jmp unset ;stop 


LN 


2650 Sta tbctrl 


EM 


3530 ;zeros are suppressed on two 




NM 


l7B0chart jmp pntcht .printout 


FG 


2660 ISJ. 


BO 


3540 ;byte hexadecimal numbers 




CL 


1790fesel jmp settwo ;restart 


CE 


2670 Ida $0105,x 


EF 


3550; 




OH 


1800. 


AB 


2680 Sta obyte 


OF 


3560; 




KK 


1 81 ;sei up vectors zero variables 


HF 


2690 Ida $0106,x 


JB 


3570 pntcht Ida i^cbegin 




MD 


1820 ;se1 up and start timers 


PH 


2700 omp #cbegin 


OL 


3580 Sta fre2 




BP 


1330 ;[imerb counts underflows 


JJ 


2710 beq tryhi 


GO 


3590 jsr p2scr 




GP 


1 840 :from tmer a and counis down 


00 


2720 bcc bugoul 


PF 


3600 IdK MA 




LB 


1650 :the number of underflows in 


IP 


2730lryhi omp #cfjnsh 


MN 


3610 jsr Chkoul 




ilW nOntQCIOf 


55 
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AP 
FM 
CF 
JB 
AN 
FC 
!H 
BA 
FE 
NC 
Nl 
JG 
DC 
NH 
CH 
FH 
NL 
MG 
MF 
IB 
DE 
MH 
HN 
U 
OM 
AN 
GB 
CB 
IB 
IC 
MM 
AB 
CA 
EO 
PK 
LP 
BA 
GK 
NH 
IP 
FH 
FA 
HK 
FM 
BF 
NO 
MN 
PB 
AO 
JO 
MO 
LM 
DL 
NA 
Jl 
MM 
KM 
PG 
ON 
KF 
OE 
FD 
IH 
HD 
KB 
HL 
OC 
GM 
IP 
KD 
JD 
QH 
LN 
CJ 
MO 
CC 
DP 
CB 
FC 
HO 
Of 
IG 
CM 
MM 
NL 
CP 
ED 
NJ 



3620 

3630 

3640 pnchl 

3650 

3660 

3670 

3680 

3690 

3700 

3710 chks 

3720 

3730 

3740 

3750 

3760 

3770 pnbop 

3780 

3790 

3B00 

3810 

3820 

3&30 

3840 

3850 

3860 pnch 

3870 

3880 

3890 

3900 

3910 

3920 

3930 

3940 pnch2 

3950 

3960 

3970 

398Q 

3990 

4000 

4010 

4020 

4030 pfini 

4040 

4050 

4060 

4070 

4080 

4090 bumpy 

4100 

4110pntrt 

4120 

4130 

4140 

4150 

4160 

4170 

4180, 

4l90;OUlpul 

4300, 

4210heJll6 

4230 

4230 

4240 

4250 

4260; 

4270 loutpul 

4280, 

4290 pnlhex 

4300 

4310 

4320 

4330 

4340 

4350 

4360 nozera 

4370 nozery 

4330 

4390 

4400 hexoul 

4410 

4420 

4430 

4440 

4450 

4460 

4470 

4480 

4490 



jsr phflad 

jsr setbuf 

Ida #13 

jy chrou! 

Ida fre2 

beQ pffni 

cmp #cfinsh 

beq chks 

bcs pfini 

|S^ pnlhex 

Ida #' ■ 

jsr chrout 

Ida #32 

jsr chrout 

Idy #255 
iny 

cpy #32 

beq pnch2 

Ida ^ey 

cmp #3 

bne pnch 

Ida #13 

|sr ch roul 

bcc pfini 

Ida (zpg),y 

5la Icnl 

bne bumpy 
iny 

Ida izpg),y 

bne pntit 

jsr pnl3sp 

jmp pnloop 

inc tre2 
cic 

Ida zpg 

adc #32 

sta zpg 

Ida zpg + 1 

adc #0 

sia zp9 + 1 

jmp pnchl 

jsr phead 

jst pnlsta 

Jda #4 

sr close 



rts 



circhn 



my 

Wa fzpg),y 

sty ysave 

Idy lent 

isr hexl6 

Ida #32 

jsF Chrout 

Idy ysave 

bne pnloop 

hexnumber <two bytes> 

sly 829 

jsr pnthe* 

Ida 829 

jsr henoul 

)mp nozsfa 

hex number <one byte> 

JSF hexoul 

cmp ro' 

bne nozera 

cpy #"0" 

bne nozery 

Idy #32 

bne nozery 

isr chrout 

lya 

|s* chrout 

rts 

lax 

and #S10 

Isr a 

Isr a 

Isr a 

ter a 

jsr hD2 

pha 

txa 

and #$0t 



FO 
NG 
AD 
OJ 
LO 
HN 
GE 
FM 
DJ 
KN 
OG 
LK 
CI 
JJ 
JF 
BN 
DM 
EA 
BE 
LI 
HM 
FL 
PO 
EE 
PG 
PE 
MA 
01 
CC 
CK 
GD 
AN 
JE 
NM 
GD 
ON 
CH 
JE 
Gl 
JL 
HJ 
JH 
PO 
MP 
MC 
FK 
AJ 
BC 
DM 
KG 
OP 
GG 
CB 
GP 
AN 
GH 
PK 
HB 
EM 

IF 

JJ 

MG 

FO 

AM 

PP 

KA 

OJ 

GB 

CL 

BE 

HA 

FK 

PM 

KO 

PE 
CG 

BP 
HD 
GB 
HB 
KC 

IH 
GE 

NL 
AO 

BN 

JJ 

10 



4500 jSf ho2 


01 


5380 Ida #>messg5 


4510 lay 


JP 


5390 jsr pstrng 


4520 pla 


OP 


5400 Idy #<messg3 


4530 rts 


EK 


5410 Ida #>messg3 


4540 ho2 cmp #10 


HS 


5420 jsr psitng 


4550 bcc nixadd 


DD 


5430 Idy #<ccvcle 


4560 CC 


JN 


5440 Ida #>ccycle 


4570 adc it? 


DP 


5450 jsr hexie 


4580 nixadd adc #"0' 


CE 


5460 Idy #<mesSQ5 


4590 rts 


10 


5470 Ida #>rnessQ5 


4600 


DP 


5480 jsr psfrng 


4610 jOpen printer as device #4 


MP 


5490 Idy #<messg4 


4620; 


CA 


5500 Ida #>messg4 


4630 p2scr Ida #255 


BH 


551 jsr pstrng 


4640 Sta pindex + 1 


IB 


5520 Ida freq + 2 


4650 Ida 53272 


CI 


5530 jsr hexoul 


4660 and #2 


LP 


5540 jsr nozera 


4670 beq ucase 


CO 


5550 Wa frsq + 1 


4680 Ida #7 


. AK 


5560 JST heiout 


4690 sfa pindeji + 1 


JH 


5570 jsr nozera 


4700 ucase da #4 


01 


5580 Ida freq 


4710 fdx #4 


OL 


6590 jsr henout 


4720 pinde^ Idy #255 


HJ 


5600 jsr nozera 


4730 jsr seiffs 


IN 


5610 Idy #<messg5 


4740 Ida #0 


OH 


5620 Ida #>messg5 


4750 jsr setnam 


JO 


5630 jsr pstrng 


4760 J SI Open 


OP 


5640 Idy #<messg7 


4770 rts 


EK 


5650 Ida #>messg7 


4780; 


HA 


5660 jsr pstrng 


4790 :reset buffer lo start 


PJ 


5670 Ida vfag 


4800; 


IB 


1 5680 jsr hexoul 


4810selbut Ida #<trbuf 


BP 


5690 jsr nozera 


4820 Sla zpg 


CD 


5700 fdy #<messg5 


4830 Ida #>irbuf 


IN 


5710 kJa #>messg5 


4B40 Sta Zpg + 1 


DE 


5720 jsr pstrng 


4850 rts 





5730 Ida #13 


4860; 


DE 


5740 jsr chroul 


4870 ,zero buffer area 


CG 


5750 rls 


4880; 


GP 


5760; 


4890 zbuff jsT setbuf 


LM 


5770 ;program data ar>d message laWes 


4900 Idx #(cfinsh + 1 -cbegin)>3 


KA 


5780; 


4910 Idy #0 


DK 


5790 space asc ■ : ' 


4920 lya 


MJ 


5600 byleO 


4930zloop1 sta fzpg),y 


IC 


5810; 


4940 iny 


CD 


5620messg3 byte 13 


4950 bn© zloopt 


PE 


5830 asc 'dock cycle (a) (' 


4960 inc zpg + 1 


EM 


5S40 byte 


4970 cjex 


AF 


5850, 


4980 bne zioopt 


FJ 


5860messg2 byie 13,13,13 


4990 Its 


CM 


5870 asc "cycles (b) ' 


5000; 


MO 


5880. byte 


5010 ,pnni 3 spaces and a colon 


H 


5890, 


5020; 


BJ 


5900rTiesBg4 byte 13 


5030pnt3sp sty ysave 


OJ 


5910 asc ■ sample oouni [ " 


5040 Idy #< space 


EB 


5920. byte 


5050 Ida #>space 


AK 


5930; 


5060 jsr pstrng 


KM 


5940 rT>essg5 asc ' ' 


5070 Idy ysave 


CD 


5950 byte 


5080 rts 


OL 


5960; 


5090: 


OK 


5970 messg = ■ 


5100 ;print top of chart 


NG 


5980 asc' 00 10 20" 


5110; 


EK 


5990 asc' 30 40 50 60' 


5120 phead Idy #<messg 


DO 


6000 asc ■ 70 80 90 aO* 


5130 ida #>messg 


KB 


6010 asc ' bO cO dO eO fO" 


5140 jsr pstrng 


IH 


6020 byteO 


51 SO rts 


MB 


6030messg7 byte 13 


5160; 


GH 


6040 asc "overflows [ " 


5T70;prinisiringa = >y = < address 


GJ 


6050. byte 


5180, 


LK 


6060; data 


5190pslrng sty temp 


AB 


6070 ysave byte 


5200 Sta temp+1 


PM 


eoeOokJvec byte 0,0 


5210 Idy #0 


LK 


6090 Icnl byleO 


5220pslfgl Ida [temp),y 


OK 


6100tre2 byte 0,0 


5230 beq pElrg2 


FP 


6llOhiby1e byte 0,0 


5240 jsr chrout 


BD 


6l20lobyle byteO 


5250 iny 


JA 


6130freQ .byieO,0,0 


5260 bne pslrgl 


LJ 


euOvtIag byteO 


5270psitg2 ris 


OF 


6l50lrbuf 


5280; 


MO 


6160 end 


5290 ipnni sample stats 






5300; 




5310pnista \dy #<messg2 




5320 Ida #>messg2 




5330 isr pstrng 




5340 Idy milli 




5350 Ida #0 




5360 jsr hexl6 




5370 kJv #<messg5 





TTwTranioclof 



56 



Nov. 1966: Vohnw 7, lni» 03 



The 8563 

Video Display Controller 



The 80 column screen of the C128 is driven by a chip called the 8563 Video Display 
Controller, or VDC for short. The VDC is extremely flexible, and almost every aspect of 
the display (characters per !ine, lines per screen, height and width of characters, etc.) 
can be changed to suit your preferences- Before describing how to use these features I 
will explain how to access the VI>C. 



Accessing The VDC 

The VDC contains 37 registers (numbered to 36) which control how it displays 
information contained in its own bank of 16K RAM (this memory is not accessible 
directly by the CPU - only the VDC can get at it). Access to these registers is restricted 
to two memory locations - Sd6flO and $d60 1 . The register number you wish to read or 
write is placed in td600 and $d60l becomes "connected" with the register pointed to 
by $d600. This complicated addressing scheme is made a little more difficult by the 
possibility that the VDC is not ready to connect the register you want immediately 
following a write to Sd600. This is handled by making $d600 dual purpose. Writing to 
Sd600 specifies the register number. Reading $d600 returns status information. Below 
is a description of the bits in $d600: 

Location $d600 (VDC access registers) 

d7 d6 d5 d4 d3 d2 dl dO 

Write "" 
Read 

When you read td600, the highest bit is set if the information at $d601 is valid (for a 
read or write). Bit 6 is cleared when the light pen signal has been sensed. Pit 5 is set 
during vertical retrace. The lowest 3 bits return the version number of the VDC. An 
easy test to determine a CI 28, in 64 mode, from a normal C64 is to PEEK this location. 
A C64 will ALWAYS return a zero. 

Programmirg the VDC seens impossible from BASIC (it is too slow), so all examples 
will be shown in 8502 assembly code. Furthermore, the 80 column chip is iust as 
accessible from 64 mode, so all examples will work unchanged in either mode. 

The following are two routines for reading and writing the VDC registers. When called, 
register 'X' should have the VDC register number, and the accumulator is used to pass 
the information- Register 'Y' is not affected. 




READ 


STX SD600 ; 


.WRITE REG- TO VDC 


WAlTOi 


BIT $D600 ; 


;WAIT FOR BIT 7 OF 




BPL WAITOl 


; THE VDC TO BE SET 




LDA $D601 


;LOAD REGISTER DATA 




RTS 


; AND RETURN 


WRITE 


STX $D600 


, WRITE REG* TO VDC 


WA1T02 


BIT $D600 


;WAITF0RBIT7OF 




BPL WAIT02 


: THE VDC TO BE SET 




STA $D601 


;PUT IN REGISTER 




RTS 


;AND RETURN 



The following is a list of the VDC registers and their functions. Many of the registers 
provide multiple functions, so each function is given its own line. The default (upon 
power up) is given for each setting. An 'x' means that the bit position it is in is not used 
for that function. For example, register 3 has two functions. One uses the upper four 
bits to control the vertical sync width, and the other function uses the lower four bits to 
control the horizontal sync width. 
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VDC Regisiers 



Reg 


Normal Description 







%oiiniio 


Horizontal Total 


I 


%01010000 


Horizontal Displayed 




2 


%oiiooin 


Horizontal Sync Position 




3 


%OI00xxxx 


Vertical Sync Width 






%xxxxl001 


Horizontal Sync Width 




4 


%00100110 


Vertical Total 




5 


%xxxxOOOO 


Vertical Total Adjust 




6 


%01010000 


Vertical Displayed 




7 


% 00 100000 


Vertical Sync Position 




8 


%xxxxxxOx 


Video Mode 






%xxxxxxxO 


Inlerlace-SyncMode 




9 


%xxx00in 


Total Rasters/Character 




10 


%x01xxxxx 


Cursor Mode 






%xxxOOOOO 


Cursor Start: Raster Line 




11 


%xxx00111 


Cursor End: Raster Line 


1 


12 


% 00000000 


Display Start (HI byte) 




13 


% 00000000 


Display Start (LO byte) 




14 


% 00000000 


Cursor Address (HI) 




15 


% 00000000 ! 


Cursor Address (LO) 




16 


% 00000000 


Light Pen Vertical 




17 


% 00000000 


Light Pen Horizontal 




18 


% 00000000 


Address Pointer (HI) 




19 


% 00000000 


Address Pointer (LO) 




20 


%O0000I00 


Attribute Start (HI) 




21 


% 00000000 


Attribute Start (LO) 




22 


%Onixxxx 


Character Total Width 






%xxxxI0O0 


Character Displayed Width 




23 


%xxxx0111 


Char Displayed, Vertical 




24 


%Oxxxxxxx 


Block Copy Mode 






%xOxxxxxx 


Reverse Entire Screen 






%xxlxxxxx 


Character Blink Rale 






%xxxOOOO0 


Vertical Smooth Scroll 




25 


%Oxxxxxxx 


Bit-Map Graphics Mode 






%xlxxxxxx 


Enable Attributes 






%xxOxxxxx 


Semi-Graphic Mode 






% XXX Ox XXX 


Double Pixel Width 






%xxxxOOOO 


Horizontal Smooth Scroll 




26 


%llHxxxx 


Foreground Color (RGBl) 






% xxxxOOOO 


Background Color (RGBI) 




27 


% 00000000 


Address Increment Per Row 




28 


96001XXXXX 


Character Set Start 






%xxxOxxxx 


8563 DRAM Type 




29 


%xxxOOin 


Underiine Raster Line 




30 


% 00000000 


Word Count 




31 


9600000000 


Data Byte 




32 


% 00000000 


Block Copy Source (HI) 




33 


% 00000000 


Block Copy Source (LO) 




34 


%oinuoi 


Display Enable Begin 




35 


%onoono 


Display Enable End 




36 


%xxxxOI01 


DRAM Refresh Rate 





Before we look at individual registers and functions, 
we must look at how the VDC uses its I6K memory 
bank, and how we can access it. 
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VDC Memory 

The VDC has two 1 6K by 4-bit dynamic rams attached to it. These 
rams can only be addressed by the VDC, so any access to them 
MUST be through if. You first place the address you want to read or 
wrile into the address pointers (registers 1 8 and 1 9). Then you read 
or write the data byte register ("31). For example, to load VDC 
memory localioEi $10dc with the value $20, the following code 
could be used: 



SET20 



address pointers are incremented. This means that you should use 
one less than the number of characters you want to fill. The 
following example clears the entire VDC memory. 



LDX *18 




LDA *$10 


:HI BV I b 


JSR WRITE 




INX ; 


;N0WP01NTT0 19 


LDA *$DC 


;L0 BYTE 


JSR WRITE 




LDX *31 


;DATA REGISTER 


LDA *$20 


;BV IE TO WRITE 


JSR WRITE 




RTS 





Due to an undocumented "bug" in the VDC, you should always 
load the address pointer high byte first. If you load the high byte 
last, you may gel the wrong address. 

One nice feature of the address pointers is that after each byte is 
read or written through register 31, the address pointer is incre- 
mented to point to the next memory position. The following code 
could be used to print my name to the VDC memory (we will use 
the same location as the starling point): 



PRTNAM 


LDX *I8 






LDA *$10 


;HI BYTE 




JSR WRITE 






INX 


;NOWP0INTTO19 




LDA *$DC 


;L0 BYTE 




JSR WRITE 






LDX *3I 


;DATA REGISTER 




LDY '00 


iBEGINNINGOFNAME 


PRTCHR 


LDA NAME.Y 


;GET CHARACTER 




BEQ DONE 


; END CHARACTER? 




JSR WRITE 


;PRINTCHARACIER 




INY 


iPONTTONEXT 




JMP PRTCHAR 




DONE 


RTS 




NAME 


.BYI' 'DAVID STI DO 


iLPH',0 



Of course the above example ignores the fact that the normal 
definition of characters does not follow their ASCII equivalents 
{unless you to set them up that way). The code also does not update 
the attribute memory. 

Fill and Copy Mode 

If you want to clear the display by filling it with spaces (or any other 
data), (here is a special register to write the same byte to successive 
VDC memory locations. This register (30) should be written AF- 
TER you have defined the starting address in the address pointer 
registers and written the data to the data byte register. You must 
remember, however, that as soon as you write a byte to the data 
byte register, the memory location is set to that value and the 



CLEAR 



CLRPAG 



LDX *18 
LDA*00 
JSR WRITE 
INX 

JSR WRITE 
LDX *24 
JSR READ 
AND'$7F 
JSR WRITE 
LDX *31 
JSR WRITE 
LDX *30 
LDA *255 
JSR WRITE 
LDY *47 
LDA *00 
JSR WRITE 
DEY 

BNE CLRPAG 
RTS 



;SET ADDRESS 

; POINTER TO START 

; OF MEMORY 



;CLEAR COPY BIT 



LOAD DATA BYTE 
WITH (CLEAR) 
AND CLEAR REST 
OF FIRST PAGE 

47 OTHER 256 BYTE 
PAGES TO CLEAR 
CLEAR 256 BYTES 
COUNTER ZERO? 
NO, CLEAR ANOTHER 
;ROUTINEDONE! 



Another feature of the VDC is the ability to COPY one area of VDC 
memory to another area (up to 256 bytes at a time). This comes in 
handy for scrolling the screen. 

To copy memory the BLOCK COPY bit (register 24, bit 7) must be 
set. You first set the address pointers (1 8 and 1 9) to the destination 
address and the block copy source registers (32 and 33) to the 
source of the memory to copy from. Then you write the number of 
bytes to copy in the word count register (30). As with fill, a zero 
value indicates 256 bytes are to be copied, however you do not put 
a byte in the data register (31). so you do not need to write one less 
than the number you want to word count register (30). The copy 
process goes from low to hi. so be careful not to overlap your 
copying. 

Setting Up The Display 

Most video chips are set to show a hxed number of characters per 
line and lines per screen. The VDC, however, is more flexible than 
most display controllers. The number of screen lines is controlled 
by the vertical displayed register (6). As you increase or decrease 
the number of lines, you will note that the top line stays fixed at the 
same position. As you increment the vertical sync position register 
(7). the screen will ''move up", and as you decrease it the screen 
will "move down". A good formula for setting the register is to add, 
or subtract, one number for every other line added, or removed, 
from the normal 25. A more mathamatical way to represent this 
would be: 

R7 = 32 + (R6-25)/2 

The VDC allows you to design your display to be a 'Vindow" that 
moves over a larger screen. Figure I shows the relationship of the 
display to the theoretical screen. You could, for instance, have an 
80 column display with 25 lines that moves about a 200 column 
screen with 40 lines. The program examples here will assume only 
the standard 80 columns. 
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A 



DISPLAY 



D 



B 



ATTRIBUTES 



A = Startof Display (R1 2, 13) 
B = Start ot Attributes (R20, 1 3) 
C = Horizontaf Displayed (R1) 
D = Vertical Displayed (R6) 
E = Total Number of Columns 

R27 (Address Increment per Row) should be set to 
the Total Number of Columns (E) minus 
the Number of Displayed Columns. 



You can "scroll" your entire display up ot down by changing the 
display start registers ( 1 2 and 1 3). Add SO to them and the display 
would start one tine down, so the screen would appear to "scroll" 
down. The following code shows how to move your display one 
"line" down (this presumes thai the new line bellow the display 
already has data you want shown). 



I^OVEUI^ LDX "13 

JSR READ 

CLC 

ADC *80 

PHP 

JSR WRITE 

DEX 

JSR READ 

PLP 

ADC *flO 

JSR WRITE 

RTS 



;GET LO-BYTE 
;0F DISPLAY 

ADD 80 AND 
SAVE CARRY 
STORE NEW VALUE 
NOW THE HIGH BYTE 

RECALL CARRY 
ADD IN CARRY 
STORE NEW HIGH BYTE 
;AND RETURN 



Vertical Smooth Scrolling 

The type of scrolling shown above works, but is rather jerky. The 
VDC, however, has the ability to smoothly scroll, pixel by pixel. 
Since the display can be flexible in the number of lines thai can tie 
displayed, we don't have to reduce the display in order to smooth 
scroll. In order to smoothly scroll the display "down" a line, just 
follow these steps: 

1 , Put the text that will be scrolled onto the screen when if moves 
down a line into VDC memory, if the text is already there, skip 
this step. 

2, Increment the vertical smooth scroll register (24, bits 4-0) until 
it is equal to the number of raster lines per character. 

3, Add the number of characters per line (register 22) to the display 
start registers (12 and 13) and set the vertical smooth scroll 
register back to zero. 

Here is an an example routine to scroll the screen down one line 
smoothly. It is assumed that the text on the new line is already 
there. 



SMOOTH 



SMTH1 



SMTH2 



LDX *24 


;GET VERT SMOOTH 


JSR READ 


;SCROLL REGISTER 


AND*%I1100000 


;AND SET TO NO 


JSR WRITE 


;SCROLL 


JSR READ 


;READ VALUE 


CLC 




ADC *0I 


;ANDADDONE 


JSR WRITE 




LDY *100 


; DELAY VALUE 


DEY 




BNE SMTH2 




AND-%O00ini] 


iCHECK SCROLL AGAINST 


CMP*7 


iBOTTOM RASTER AND 


BNE SMTHl 


iCONTINUE UNTIL DONE 


JSR READ 


;GET REGISTER AGAIN 


AND*11IOOOOOO 


;AND CLEAR SCROLL 


JSR WRITE 




JSR MOVEUP 


jNOWMOVEUPONEUNE 


RTS 





Horizontal Smootti Scrolling 

In a similar manner, the screen can be scrolled smoothly left and 
right. This is a little more complicated because you have to set up 
the VDC to believe that there are more columns per line than it will 
display. This is done through the address increment per row 
register (27), The value of this register is added to the end of each 
line to get to the beginning of the next line. For example, if you 
wanted a "virluar display line of 100 characters, with an actual 
display line of 80, you would have to put the value 20 into register 
27. Simple movement to the left or right one column is then a 
matter of incrementing or decrementing the display start registers 
{12 and 13). 
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Smoolh scrolling the screen horizontaily is similar in concept to 
vertical smoolh scrolling, except that Commodore has come out 
with different versions of the VDC which require different initiali- 
zation, and use. of the smooth scroll register. When you read 
$d600 for the status bit, you also get other information which 
includes the version number of the VDC. If the lower three bits of 
the VDC are all zero then the smooth scroll off setting is zero. If any 
of the three bits are on, then the smooth scroll register should be 
set to seven to be off. The difference between these chips is that the 
first type is designed to scroll the text to the right, and the second is 
designed for scrolling to the left. Either way it is a shame Commo- 
dore had to cause these incompatibility problems. 



intensity Off 



AttHbutes 

Like the VIC-II chip, two bytes of memory are used for each 
character on the display. One byte to determine what character 
from the character set is displayed, and the other for the color it 
will t>e shown in. Unlike the VIC-II chip, every bit in the attribute 
byte is needed because each character has extra attributes that can 
be attached to it. In simple terms, the lower four bits determine the 
color, and the upper four bits determine its attributes. Attribute 
memory is set up just like the display memory, and has a one-for- 
one correspondence with it. 

Attribute bytes are defined in the following table: 



Bit 
7 


Attribute 


A ternate character set 


6 


Show character in reverse mode 


5 


Underline the character 


4 


Bhnk the character 


3 


Red 


2 


Green 


1 


Blje 





intensity 



Bit 7 determines which character set is used for displaying the 
character. If the bit is set the second (or upper) character definition 
is used. This allows each character to select from either set, 
allowing 512 possible characters. 

Bit 6 is used to display the character in reverse mode. If a pixel in 
the character definition is on. then it will be displayed of. If it is 
defined off, then it will be displayed on. 

Bit 5 allows you to underline any character (or combination) on the 
screen. The raster line used for underlining is set by register 29. It 
could be set to strike through (overline) by changing its value. 



Red 


Green 


Blue 


Color 











Black 








! 


Blue 





1 





Green 





1 


1 


Cyan 


1 








Red 


1 





1 


Purple 


1 


1 





Brown 


1 


I 


1 


Light Grey 



Intensity On 



Red 


Green 


Blue 


Color 











Dark Grey 








1 


Light Blue 





1 





Light Green 





1 


1 


Light Cyan 


1 








Light Red 


1 





1 


Light Purple 


1 


1 





Yellow 


1 


1 


1 


White 



One thing to keep in mind, is that the normal C128 default settings 
for the display has the attribute memory start right after the display 
memory- If you increase the display size, or scroll down by 
changing the display pointers, you must move the attribute pointer 
to make room. I suggest you place attributes at $1000 to leave 
plenty of room (4096 bytes for display and attributes each). If you 
need more memory than that, you can turn off the attributes (the 
VDC will no longer look for them) by clearing the attribute enable 
control bit (register 25, bit 6). This would give you 8K for display 
area, but limit you to monocolor and using the first character set 
{as well as no underlining, blinking or reverse field). 



Character Definitioiu 

The VDC requires 1 6 bytes of definition for each character (verses 
8 for the VIC-Il) so that it can show as many, or as few, raster lines 
per character that you want. By default (on CI 28 power up), the 
VDC is set to display characters 8 pixels wide, and 8 pixels hight in. 
This can be changed to make characters 5 pixels wide and 1 lines 
tall. The only limits are that characters cannot be taller than 32 
lines (the VDC will switch to 32 byte character definitions if you 
define your characters to more than 16 lines) or wider than 8 
pixels- You can also define a normal "space" between lines or 
characters by use of "interspace". The following figure shows the 
effect of interspace on display characters. 



Bit 4 will make the character blink. The rate character blinks is set 
by register 24, bit number 5. If this control bit is cleared, then any 
character displayed with the blink mode set will be blink fast. 

The lower nibble (bits 0-3) selects the color. The following tables 
shows the result of *' mixing" the colors: 
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CHARACTER 

DEFINITION 

{16 bytes) 



H 



CHARACTER 
DISPLAYED 



f— J— I 



K 



G 



F = Character Total Horizontal (R22 bits 7-4) 

G = Character Total Vertical (R9 bits 4-0) 

H = Character Displayed Horizontal (R22 bits 3-0) 

1 = Character Displayed Vertical (R23 bits 4-0) 

J = Horizontal Interspace 

K = Vertical Interspace 

The default settings of the VDC set no interspace between charac- 
ters. By designing higher density characters, interspace might help 
make the display more readable. Interspace could also be used to 
provide a blank area under the character for the underline. 



-The Cursor 

The VDC provides a hardware cursor. This means that you provide 
the cursor position (by memory address), turn the cursor on, and if 
it is within the display area, the cursor will be displayed. The 
cursor has 4 modes of display: 

Regis ter 10 - Cursor Mode 

Meaning 




Solid Cursor (no blinking) 
No cursor 

Blinking Cursor (fast) 
Blinking Cursor (normal) 



The cursor can also be set to any height from a block to an 
underline. You set the starting raster line in register 10 (bits 4-0) 
and the ending raster line, plus one, in register 1 1 (bits 4-0), This 
could be used to show different types of typing modes, like an 



insert mode in a word processor. The cursor color is set by the 
color of the character it is over. 



Interlace and Video Mode 

The VDC provides three methods of displaying the video informa- 
tion to the RGB monitor. The normal method (by default) is called 
non-interlaced. This means that the screen is sent 60 times a 
second and provides a normal display. Another method (used by 
normal TV's) is to send the even numbered raster scans first, 
followed by the odd numbered raster, which effectively doubles 
the resolution of the picture, but cuts the screen "speed" in half. By 
turning the interlace mode on, the VDC displays the same number 
of raster lines and duplicates them for Ihe even and odd screens, 
but sends the second screen one half scan line down, so the lines 
are belter ^'filled in.'* 

The last display mode is called the interlaced sync and video 
mode. This causes the VDC to display characters in up to double 
the resolution, if your monitor can handle it. Try turning on this 
mode and setting Ihe number of raster lines per character (register 
9) 10 a value greater than 8. 

Graphics 

The VDC offers a graphics mode that uses the VDC memory as a bit 
map. Instead of taking the display area and using it as pointers to 
the character set, the display area is used to display straight binary 
data. It takes as many bytes to display a raster line as you have 
columns in the display (each byte equals 8 pixels). In normal 
display mode (25 lines of 80 columns) this would result in a 640 by 
200 display screen. This screen requires 16.000 bytes, so no 
memory is left for the attributes. In fact, several graphics programs 
have already been written that allow you to draw on this graphics 
screen in mono-color mode. 

The bit map mode, however, follows the same rules as Ihe text 
display, so you can shrink the display size (freeing memory) and 
make use of attributes or smooth scrolling, in order to shrink the 
display, lower the value of the vertical displayed register (6), or the 
horizontal displayed register (1). By reducing the number of 
columns to 72, you could have a 576 by 200 graphic screen, and 
still have enough room for the attributes. The attributes still work 
only on a standard character size (8 by 8), so you would only have 
the equivilant foreground/background selection of the hi-res 
VlC-ll chip, but with 80% more display area! 

For those of you wanting to write printer *'dump" programs of the 
bit-map screen, remember that the address pointers (registers 18 
and 19) are always incremented after a read of the data register 
(31), so if you want straight raster data, you only have to specify the 
start of the bitmap which is stored in display start pointers 
(registers 12 and 13). 

There are other features of the VDC, but more time will be needed 
to uncover the proper settings of the other registers to use them 
properly. For now, all 1 can suggest is to experiment with different 
registers. The following program was written for the COMAL 2.0 
cartridge that allows you to interactively change the different 
register settings and see the results. For those of you who get The 
Transactor Disks, there is a package that adds commands to 
COMAL 2.0 for output on the 80 column screen. 
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0010// delete "vdc^edrtor" 
0020 //save "vdc^edifor" 
0030 // by David Siidolph 

0040^/ 

0050 USE system 

0060te«tcolors(6,6,1) 

0070 DJM valuefO 47) 

OOeO DIM name$(47) OF 20, reg(47) 

0090 DIM Slart(47).fin(47) 

0100 IF NOT supefchtp THEN 

OnO IFNOTcl28Jn'rnefrKjryTHEN 

0120 I ink 0126 

0130 ENDIF 

0140 EN DIP 

0150 USE Cl 28 

Oieopopovef 

01 70 PAGE 

0180 PRINT ' Inrtializing VDC display. , . " 

0190inilBO 

0200 read' registers 

02i0fead'values 

0220 display screen 

0230 PAGE 

0240 PRINT ' Sample te^ has been w^FHer^ to The 80" 

0250 PRINT "column screen. This program requires" 

0260 PRINT "thai you have two monitors or can swap" 

0270 PRINT ' between Ihe 40 and SO column displays. " 

0280 PRINT 

0290 hetpscreen 

0300// 

0310PROChelpscreen 

0320 PRINT "ThesekeysallowyoutoediltheVDC* 

0330 PRINT 

0340 PRINT ' CRSR-up Move poinler up one register " 

0350 PRINT " CRSR'down Move pointer down one reg ' 

0360 PRINT 'CRSR-lefl Move poinler loletlcolumn" 

0370 PRINT "CRSR-rght Movepointer loright column" 

Make POPOVER selection" 
Add orie to register value " 
Subtract one from register" 
List o' commands' 
INPUT number for VDC register' 
Show all VDC registers" 
Write PROCedure to disk that" 
will initialize the VDC to' 

0460 PRINT" IhecLtrrentsettings" 

0470 PRINT"*- Restart VDCinilializaiior " 

0480 PRINT " Quit program" 

0490 PRINT 

0500 INPUT "Press RETURN to continue 'idummyS 

0510 ENDPROC helpscreen 

0520 done: = FALSE 

0530 pos - 1 

0540 PAGE 

0550 disp^ay' registers 

0560 REPEAT 

0570 change'regislers 

0580 UNTIL done 

059O quit 

0600// 

06l0PROCquil 

0620 show'registefS 

0630 texicok)rs(-l,-1J3) 

0640 PRINT "please send [hese settings to ' 

0650 PRtNT " COMAL UsersGroup,USALimited" 

0660 PRINT" 6041 MononaDrive" 

0670 PRINT" tJadison,WlS37l6', 

0580 textcoiors(-T,-i,1) 

0600 END""145" "145"' 

0700 ENDPROC quit 

0710// 

0720 PROG display screen 

0730 background80(0.0.0,0) // back = black 

0740 color80[lJ,l,l)//char = white 

0750 d[spiaye0(1.42) 

0760 pageSO 

0770 FORx =1 TO BO DO 

0780 lFx<10THEN 

0790 prinie0^1,x,"Line1 - "(*)) 

0800 ELSE 

0810 prinl80^1,>i,CHRS((xDIV10) + 4e)) 

0820 ENDIF 

0830 pnnt80(2.x,CHRS((^MODlO) + 48)) 

0840 ENDFORx 

0850 fork: -3 TO 40 DO 

0860 pfinfeO(x,T,"Line" +STR5(x)) 

0870 pnnt801x,71,' Right side") 

0880 ENDFORx 

089O // 



0380 


PRINT 'STOP 


0390 


PRINT' + 


0400 


PRINT" - 


0410 


PRINT " H 


0420 


PRINT ' 1 


0430 


PRINT ' S 


0440 


PRINT ■ W 


0450 


PRINT ' 



1060 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 



0900 FORi.-OTOl DO 

0910 coloreO^O,l,0,l}//lt. green 

0920 pnnt80(4J-30 + iO,"Color Table- Intensity " +state$<i)) 

0930 print80{S.i-30+10," = = = = = = = = = = = = ^ = = ' 

0940 print80(6,»^30 + 10,"Red Green Bfue COLOR") 

0950 row: - 7 

0960 FORr =OT01 DO 

0970 FORg.=0TOl DO 

0980 FORb=0TOlDO 

0990 color80(0,l,T.1)//Hcvan 

1000 print80(row,i.30 + lO,Statet(r)) 

1010 print60(row,i^30 + 16,stafe$(g)) 

1020 pnntBO(rowj-30 + 23,state$(&)) 

1030 COlor80(r,g,t),i) 

1 040 prinlS0(raw,i-30 + 29, " color ' ) 

1050 row +1 

1060 ENDFOflb 

1070 ENDFORg 

1080 ENDFORr 

1090 ENDFORi 

1100 color80(1,1.0,l)//ve*low 

1110 at(ributes(i,0,0,i) 

1120 printBO(17,27/Thislex[ 15 blinking") 

1130 attributes(i, 1,0,0) 

1140 print80(19,27," This lex! IS reversed* 

1150 aitribules(i,ai,0) 

1160 prinl80(21,26/Thisiext is underlined') 

1170 attributesfl. 1,0,1) 

1160 phnf80(23,26," Reversed, Blinking text" 

1190 attritJutes{l,0.1J) 

1200 prinfe0(25, 25, " Blinking, Underlinedtexl" 

1210 atlnbules( 1,0.0,0) 

1220 displaye0fl,25) 

1230 ENDPROC display'screen 

1240/; 

1250FUNCslateS(f) 

1260 IF I THEN 

1270 RETURN "ON " 

1280 ELSE 

1290 RETURN "OFF" 

1300 ENDIF 

1310 ENDFUNC states 

1320// 

1330 PROC read registers CLOSED 

1340 IMPORT name$0,reg0 

1350 fMPORT siartO,t<nO 

1360 couni. =0 

1370 WHILENOTEODDO 

1380 count + 1 

1390 READ narrieS(counl) 

1400 READ reg(count) 

1410 READs[art(coum) 
1420 READ fin[count) 

1430 ENDWHILE 

1440 // 

1450 DATA " Horizontal Total 

1460 DATA "Horiz Displayed 

1470 DATA "HorizSyncPos 

1480 DATA "Vert Sync Width 

1490 DATA "Noriz Sync Width 

1500 DATA "Vertical Total 

1510 DATA "Vert Fine Adjust 

1520 DATA "Vert Displayed 

1530 DATA "Vert Sync Pos 

1540 DATA ' Interlace Mode 

1550 DATA 'Video Mode 

1560 DATA " Lines Per Char 

1570 DATA "Cursor Begin 

1580 DATA "CursofEnd 

1590 DATA "CursorMode 

1600 DATA 'TentStarlHI 

1610 DATA "Text Start LO 

1620 DATA "Cursor AddrHI 

1630 DATA" Cursor AddrLO 

1640 DATA "Memory Point HI 

1650 DATA ' Memory Point LO 

1660 DATA'AttributeHI 

1670 DATA'AttribuleLO 

1680 DATA 'Char TotalWidth 

1690 DATA'CharDispWidth 

1700 DATA "CharDispVerl 

1710 DATA "Copy(1)/Fill[0) 

1720 DATA "Reverse Screen 

1730 DATA " Char Blink Rate 

1740 DATA " V-SrT>00th Scrdl 

1750 DATA "H-Smoolh Scroll 

1760 DATA "Graphics/Te>rt 

1770 DATA " Mono/ATR - Color 

1780 DATA 'Semigraphic Mode ",25,5,5 



1790 DATA "DBL-Pixei Width ",25,4.4 

1800 DATA "Foreground Color ",26,4.7 

1810 DATA "Background ColOf ',26,0,3 

1820 DATA ■ Offset Per Row ",27,0,7 

1830 DATA " Character Base ',28,5,7 

1840 DATA 'Underline Raster ',29,0,4 

1850 DATA " Word Count ',30,0.7 

1860 DATA 'Data Register \31,0,7 

1870 DATA"CopyBlOCkHI ",32,0,7 

1880 DATA 'Copy Sock LO V33,0,7 

1890 DATA "Dep Enable ON '.30,0,7 

1900 DATA *Dgp Enable OFF '.35,0,7 

1910 DATA ' DRAM Refresh ",36,0,3 
1920 ENDPROC read'registers 
1 930 // 

1 940 PROC display' registers 
1950 PAGE 

FOR n: = 1 TO 47 DO 

row = x; col =1 

IF x>24 THEN row -24, col =21 

IF x = pos THEN 
PRINT AT row,col "MB' VnameSix)," '146' \ 

ELSE 

■ +nameS(x): 



ADD -SUBTRACT' 



PRINT AT row,col 
ENDIF 

ENDFOR X 

textcolorst-1,-1,10) 

PRINT AT24,22 " + 

teflcolors(-l,-l,l) 

PRINT AT 25,1: ' "IB" ' +nameSfpos)+ "I'ivaluetpos); 
2090 PRINT" ',TAB(31),"MAX'"; 
2100 PRINTUSING "##*"146"" max(pos). 
21 10 ENDPROC display registers 
2120// 

2 1 30 PROC changeVegisTers 
2140 REPEAT 





2150 


new'pos =pos 


D 


2160 


valid =TRUE 




2170 


CASE KEYS OF 




21B0 


WHEN"q"."0' 




2190 


quit 




2200 


WHEN ■ • 




2210 


initao 




2220 


read values 




2230 


display'screen 




2240 


WHEN"h","H" 




2250 


PAGE 




2260 


helpscreen 




2270 


display' reg eters 


",0,0,7 


2280 


WHEN 'w'.'W 


M.0,7 


2290 


write' registers 


".2,0,7 


2300 


display' registers 


",3,0,3 


2310 


WHEN 'i",'r 


",3,4,7 


2320 


REPEAT 


",4,0,7 


2330 


INPUTAT25,24,3:'" dat'numS, 


",5.0,4 


2340 


TRAP 


" ,6.0,7 


2350 


ok. = 1 HUE 


",7,0,7 


2360 


new'num: = VAL(dat'nun^j 


",8,0,0 


2370 


HANDLER 


",8,1,1 


2380 


ok = FALSE 


',9,0,4 


2390 


ENDTRAP 


M0,0,4 


2400 


UNTIL ok ANDnew'num>-l AND new'num< - rrax(pos) 


Ml, 0,4 


2410 


valuejpos) "new'num; make(pos) 


",10,5,6 


2420 


WHEN"s',"S" 


".12,0,7 


2430 


show" registers 


M3,0,7 


2440 


PRINT 


",14,0,7 


2450 


INPUT " Press RETURN to continue " dummyS 


",15,0,7 


2460 


display'registers 


",16,0.7 


2470 


WHEN ""17" ■ //cursor down 


■,19,0,7 


2480 


IF pos<47 THEN new'pos: + 1 


■ ,20,0,7 


2490 


WHEN""145'"// cursor up 


",21,0.7 


2500 


IF pos>l THEN new'pos;-1 


■ ,22,4.7 


2510 


WHEN ""29"' // cursor right 


" ,22,0.3 


2520 


IF pos<24 THEN new'pos +24 


" ,23,0.4 


2530 


WHEN ""157"" //cursor left 


■ ,24,7.7 


2540 


IF pos>24 THEN new'pos -24 


'.24,6,6 


2550 


WHEN " + ' 


',24,5,5 


2560 


iF value(pos)<iiaK(pos) THEN value(pos): + 1; maMP^s) 


',24,0,4 


2570 


WHEN"-" 


",25,0,3 


2580 


IF valuefpos)>0 THEN value(pos):-l; make(pos) 


",25,7,7 


2590 


WHEN CHRS{19)// home 


",25,6,6 


2600 


new'pos. = 1 


",25,5,5 


2610 


OTHERWISE 
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2620 vafxJ-FALSE 


3510 ENDPROC write'registers 




4400 WHEN"q"/0" 


2630 ENDCASE 


3520// 




4410 quit 


2640 \f new'posOpos THEN 


3530 FUNC superchip CLOSED i 


1 

X 


4420 WHEN"h","H" 


2650 CURSOR (pos MOO 25) + (poBDlV25}.(pOEDV25)-20t1 


3540 


USE system 




4430 PAGE 


2660 PRINT ■ ■ +namet(pos), 


3550 


setpage($e4), ctup =TRUE 




4440 t>elpscreen 


2670 pos -new'pos 


3560 


RESTORE chipdata 




4450 WHEN "s'/S" 


2680 CURSOR lposMOD25) + (posDJV?5MpoaDlV25)-20 + 1 


3570 


FORx:=S8014TOSa0l8OO 




4460 Show registers 


2690 PRINT" "18' ' +nameSfpos);" " 146" ". 


3580 


READ num 




4470 PRINT 


2700 valid. -FALSE 


3590 


IF PEEK<xK>rium THEN chip 


= FALSE 


4480 INPUT AT 0,0,0 "Press RETURN to 


2710 PRINT AT 25.1: "18" " +nameS(pos)+ ■,\value(pos); 


3600 


ENDFOR X 




continue: " dummyS, 


2720 PRINT" VTABCGIj.'MAXJ; 


3610 


RETURN chip 




4490 WHEN "w'/W" 


2730 PRINTUSING ■i|i*t"148" ■ ma)i(pos), 


3620 


// 




4500 write'registers 


2740 ENDJF 


3830 chipdata: 




4510 WHEN "13 ■ ' //carriage return 


2750 UNTIL valid 


3640 


DATA 4,67,49,50,56 




4520 RETURN 


2760 PRINTAT25,1 "18* ' +nameS{posj + ":";vatue(pos); 


3650 ENDFUNC superchip 




4530 OTHERWISE 


2770 PRfNT" ■,TAB(31),"MAX:"; 


3660// 




4540 donepOpping: = FALSE 


2780 PRINTUSING '###'146" max{pOS), 


3670PROCIink'cl28 




4550 ENDCASE 


2790 ENDPRX change' registers 


3680 


PAGE 




4 560 UNTIL done ' poppng 


2800 W 


3690 


DIM aS OF 100 




4570 ENDPROC popup 


2810 FUNG max(r) 


3700 


a$ ="LINK ■■pkg.cl2e""'13 


■ ■ 


4580 // 


2820 RETURN2f((t(n{t)-siarl(rjj + 1)-1 


3710 


aS:+"RUN"13"" 




4590 // 


2S30ENDFUNCmax 


3720 


FORj.# =lTOLENEaS)DO 




4600 FUNC row 


2840 W 


3730 


POKE49151 + x#,ORD[a$(x#)) 




4610 Current'row +1 


2850 PROC read' values 


3740 


ENDFOR x# 




4620 RETURN current'row 


2860 FORx =.1T047D0 


3750 


POKE Sc866,0 




4630 ENDFUNC row 


2870 byls: - read80(reg('()), mask =0 


3760 


POKE $0667,192 




4640 // 


2880 FOR y - siari(') TO tin(*) DO 


3770 


POKE $cfi65.LEN(aS) 




4650 PROC clear 'keys 


2890 mask:+2tv 


3780 


STOP 




4660 WHILE KEY£>"0ONULL 


2900 ENDFORy 


3790 ENDPROC Iink'cl2e 




4670 dummyesc. - ESC //clear stop key 


2910 byte = byte BITAND mask 


3800// 




4680 ENDPROC Clear keys 


2920 value(x) - bvte/(2tstaFT(x)) 


3810 FUNC cl 28' in 'memory CLOSED 




4690 // 


2930 ENDFORy 


3820 


USE system 




4700 PROC setup CLOSED 


2940 ENDPROC read 'values 


3830 


setpage^SOO); is'cl28 =TRUE 




4710 '/ sei up by lesse knight 


2950 // 


3840 


RESTORE cl28data 




4720 TRAPESC- 


2960 PROC make(r) 


3850 


FORx: = $800eTO$80l2DO 




4730 FORx# ^OT012DO 


2970 byie - reaO0O(feg(r)) 


3860 


READ num 




4740 READ byteff 


2980 mask. = 


3870 


IF PEEK(xK>num THEN is'c128 = FALSE 


4750 POKE $c86a + x*.byte# 


2990 FORy -slart(r)TONr>(0DOinash. + 2ty 


3880 


ENDFOR X 




4760 ENDFOR x# 


3000 mask -255 BITXOR mask 


3890 


RETURN is^cl 28 




4770 POKE Sc7e2.S6a 


3010 byte: = byte BITAND mask 


3900 


// 




4780 POKE Sc7e3.$ca 


3020 byte =byteBIT0R{value(r)-(2tsJart(r))) 


3910cl28daia: 




4790 POKE S4d,PEEK(S4d) BITOR 120 


3030 se!80(reg(r).byie) 


-3920 


DATA4,67,49,50,56 




4800 DATA Sa5,S4d,S29,S08,Sf0,S06.Sa9 


3040 ENDPROC make 


3930 ENDFUNC cl28'in'inemory 




4810 DATA tO4,S05,S4d,Se5,$4d,$60 


3050// 


3940// 




4820 ENDPROC setup 


3060 PROC srtowVegisters 


3950 PROC popover CLOSED 




4830 // 


3070 PAGE 


3960 //copyright 1 986 len indsay 




4640 PROCset'cooTsCLOSED 


3080 PRINT ■ "le'CurrentVOCvalues/CTRL-PforHardcopy'lde". 


3970 


// original by len lind&ay 




4850 USE system 


3090 FOflx =0TO36DO 


3980 


INTERRUPT 




4860 USE graphics 


3100 CURSOR (X MOD 19) + 2,(x DIV 19).20 + 1 


3990 


MPORTfluitshow' registers, readeo 


4870 PAGE 


3110 PRINT USJNG ■ReQisTef## *##" x.readSOjx) 


4000 


IMPORT write 'regislers.heipscreen 


4880 LOOP 


3120 ENDFORx 


4010 


US£ graphics 




4890 PRJNTAT3,1 "" 18 "set colors now" 


3130 PR NT 


4020 


TRAP ESC- 




4900 PRINT AT6,1. "press "IB" f1 '146' 


3140 ENDPROC s*iow'registers 


4030 


setup 




botdef color ' 


3150// 


4040 


USE system 




4910 PRJNTAT8,1 " press " 18" 13 " 146' 


3160 PROC write'registers 


4050 


DlMsiart'screenSOFl505 




background color" 


3170 PAGE 


4060 


getscreen(sTart'screenS) 




4920 PRINTAT10,1: 'press "18" 15 "146" 


3180 PRINT "DoyouwishtownteaPROCedureto' 


4070 


clear keys 




Eejct color" 


3190 PRINT "disk that would set up the VDCregfcslefs", 


4080 


popup 




4930 PRINTAT13,1; 'press '18' f7-l46" 


3200 PRINT'toproducethepresenldisplay?" 


4090 


setscreen(start ' screenS) 




or "18' q "146" quil colors" 


3210 PRINT 


4100 


clear'keys // optional line 




4940 CASE KEYS OF 


3220 REPEAT 


4110 


INTERRUPT popover 




4950 WHEN " "133"" 


3230 INPUT ATO.O.l "{Ves'No) y' 157' *: answert, 


4120 


// 




4960 lexlcobrs{(inq(l) + 1) MOD 16,-1,-1) 


3240 UNTlanswerJJN "yVnN" 


4130 


PROC popup 




4970 WHEN " "134"' 


3250 PRINT 


4140 


col: = RND(3,l5) 




4980 iextCOlors(-1,(inq(2) + l} MOD 16,-1) 


3260 PRINT 


4150 


currentrow ■RNDt2,9) 




4990 WHEN " "135" " 


3270 IFanswerSIN "yY" THEN 

3280 TRAP 

3290 PRINT 'writing [he procedure SET'VDCto' 

3300 PRINT "ihefte. " "proc.set vdc" " " 


4160 
4170 
4180 

4190 


PPlNTATrn*rnl ""Ifl" 






r mil 1 f^l ■UtVi^'JI t%J 

PRINTATrow,col ■"18" 


VDC Editor Mem 


J :' 


rniMj 1 rti lOW^cuL id 

PRINT AT row.col: "18": C: 


Set Colors 


ri 


3310 PRINT 


4200 


PRINT AT row,coL ""18":*- 


Restore VDC and 


L 


3320 OPEN FILE 5," pfoc set' vdc' .WRITE 


4210 


PRINTATrow.col: ""18": 


60 column screen :' 


3330 PRfNTFILES '0100//" 


4220 


PRINT AT ro*,COl:"18':H 


Help Screen 


A 

V 

b 


3340 PRINTFILE5 "0110 procset'vdc" 


4230 


PRINT AT row,col.*"18":S 


Show VDC vaues 


3350 PRINTRLE5 '0120 usec128" 


4240 


PRINT AT rowcol ""18", W 


Write ME RGEabfe :' 


3360 FOHv -0TO36DO 


4250 


PRINT AT row,col "MS" 


PROCedure to 


:' 


3370 PRINTFILE5, 'O'+STRSiv.10 + 130); 


4260 


PRINT AT row, cd " "18" 


initialize VDC 


, ■ 


3380 PRINT FILE 5 " sel80C x' .' . 


4270 


PRINT AT row,col "Me'iO 


Quit Program 


« 


3390 PRINT FILE 5. readSOlv), " )' 
3400 ENDFOR v 

3410 PRINTFILE5 'OSOOendprocsel'vdc" 
3420 CLOSE 


4280 
4290 
4300 
4310 


ORlMT aTrrtuL^rrJ " ' 1A" — 




■ 


"niiT 1 "1 njrt,mi ID — 
PRlNTATrow,COl:"ie" 


RETURN to continue : * 


rTHni 1 rti IuWhCUI- io 

REPEAT 




5000 teKrcolors[-l,-1,(inq{3) + l)MOD16) 


3430 HANDLER 


4320 


done' popp 1 ng : = TRUE 




5010 WHEN ■ "136'",'q'."0" 


3440 CLOSE 


4330 


CASE KEYS OF 




5020 EXIT 


3450 PRINT * Disk error ':ERRTEXTS 


4340 


WHEN "c'.X" 




5030 OTHERWISE 


3460 ENDTRAP 


4350 


sel'colors 




5040 ENDCASE 


3470 PRINT 


4360 


sTaFl'scFeen${1).=^CHRS(inq(l)) 


5050 ENDLOOP 


3480 PRINT "Press RETURN to continue. " ; 


4370 


slarrsoreen${2) - CHRS(inq(2)) 


5060 ENDPROC set colors 


3490 NPUT AT 0,0,0 " ' answert 


4380 


B!art'screen$(3). =CHRS(inq(3)) 


5070 ENDPROC popover 


3500 ENDIF 


4390 


done' popping =TRUE 
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Aubrey Stanley 
Mississauga, Ontario 



A Total Keyboard Utility For The Commodore 64 



In our everyday life we use words to convey our thoughts. A 
thought, perfect and spontaneous, must nevertheless be articu- 
lated by a far from adequate speech process. Unless we use 
telepathy! In a manner of speaking, the keyboard replaces our 
vocal chords when we are dealing with the computer. We type in 
character after character to express a BASIC statement which had 
formed instantly in our mind to begin with. 

We use the Screen Editor in Direct Mode to create program source 
in memory. And by executing BASIC statements directly, we can 
control our development environment. Keywords are entered 
over and over, and certain commands are used frequently. A Key* 
To-String capability would be of extreme value. We could pre- 
define keywords, op-codes, pokes, commands, even complete 
BASIC programs; for instant recall at the touch of a key. And with 
an interactive feature which paused while we typed in variable 
data, this function could be even more useful 

The Screen Editor would benefit from a few enhancements to take 
the toil out of editing programs. We could have an alternative 
Insert/Delete mode where we worked from the current cursor 
position instead opening up space in the text or moving the cursor 
past the final character to be deleted, A Tab key to move automati- 
cally back and forth through BASIC and DATA statements, and a 
Clear from the current cursor position, are also worthwhile candi- 
dates- 

if we were given the choice, most of us would re--arrange at least 
some of the keys. Those shifted cursor functions might get relo- 
cated to other, unshifted positions- And DVORAK fans would likely 
re-arrange their entire keyboard. 

We only have to browse through the back issues for a wealth of 
machine language routines designed to improve our development 
environment. Many of us could put our talents to good use in this 
area. Trouble is that these individually good programs refuse to 
co-exist under the same roof. They vie for system vectors, chase 
zero-page, run in the same RAM. etc. With a little adaptation, and 
a traffic cop to direct their execution, any one of them could be 
mobilized for instant action. 

Welcome Keyboard Expander. Perhaps not a total utility, but it 
could well become a cornerstone in your development environ- 
ment. 



The program comes in the form of a loader which is run just like a 
BASIC program, ft will relocate itself up against the top of available 
BASIC memory and then run transparently in the background while 
you go about your normal work. At this stage all the enhanced editing 
commands are available, mainly on the function keys. 

If you wish to add more features, these are simply defined in a 
Profiling program as array assignments- Run this BASIC program and 
your keyboard will take on the profile you've given it. You also have 
the option to generate another version of Keyboard Expander with the 
new profile. This version can then be installed in future, instead of the 
original. 

Repositioned Keys 

Thisfeatureallowsyou to re-define as many keys as you wish to. The 
normal, shift, commodore, and control modes are treated quite 
independently, so you can move individual functions of keys around. 
Repositioned keys are always active, even in Run mode, allowing you 
to use them in your programs. 

Strings 

This feature allows you to assign an unlimited sequence of keystrokes 
to any key function. When you press the key, the string will instantly 
be printed to the screen and actioned, as if you had typed it in 
yourself. A special code can be encoded in the string to pause output 
while you type in some variable data such as a filename . Then press 
and release )RUN/STOP| to continue. Pressing (RETURN I instead, will 
terminate string output, actioning whatever is displayed on the line. 
Or you can press ISHIFTI I RETURN I to abort the process. The en- 
hanced editing features are temporarily disabled while entering varia- 
ble data. 

The siring feature is temporarily disabled in Run mode so as not to 
interfere with your programs, and also when the editor is in Quote 
mode so that graphics can be printed normally. 

Routines 

This feature allows you to tie a ML (machine language) interrupt 
routine to a key function. The interrupt routine will run in the 
keyboard (timer) interrupt. It may perform a specific task of its own or 
t>e used to initiate a background routine or a parallel program. 



The Program 

Keyboard Expander can make each key work for you in normal, shift, 
commodore and control mode. Reposition any key, recall a sequence 
of keystrokes, or run a routine of your choice. You may create your 
own configurations or use it in its pristine form for the many Screen 
Editor enhancements that it has to offer. 



A Background Routine, when initiated, will run in every subsequent 
keyboard interrupt until it disables itself. It can also be started from 
within a running ML program in the BASIC environment. 

A Parallel Program normally multitasks with BASIC by running after 
alternate interrupts. But it may elect to run exclusively for any period 
of time. It does not run interrupt code and therefore can do anything a 
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normal program can do. Like a background routine, it can also be 
started from a running ML program. 

Yon can use the routine feature to execute your own commands. The 
command line is converted to ASCII and copied to your program 
space whenever rCTRLjjRETURNj is pressed. 



Routines tied to keys will not be activated in Quote or Run mode. 
However, as mentioned, you may activate background or parallel 
programs in Run mode. 



CompatibiHty Issues 

Keyboard Expander will co-exist with other, (properly installed), 
programs. The word. Install, in the context of this article, refers to 
programs that allocate room for themselves at the top of available 
BASIC memory by modifying the top of memory pointer downward. 
Both POWER and PAL (Proline S/W Ltd) run without trouble when 
installed with Keyboard Expander, and probably SYMASS will too. 

Keyboard Expander will not co-exist with programs that modify the 
keyboard and IRQ vectors (locations 655 and 788). You may well find 
other keyboard utilities practically redundant as Keyboard Expander 
allows you to incorporate new features quite easily. Except for these 
vectors. Keyboard Expander leaves the BASIC environment intact. 
And it does not use any zero page or free RAM. As far as possible, try 
to preserve this environment when creating your own configurations. 

The memory it takes away from BASIC is IK of tables and approxi- 
mately l.SKofcode. 



GETTING STARTED 

First type in and save the generator program. ' KE.GEN " . Then run it 
to create "KE" on disk. Now load and run KE just like a normal 
BASIC program. 

You'll see the start address and a copyright message. The start address 
is the one you want to SYS to in order to restart after a RunStop/ 
Restore. 

Four keys on the keyboard are intrinsic to the program. These are the 
SHim E3. I CTRLl and IRUN/STQPl keys. Built-in commands have 



been mainly assigned to the function keys. 



Click Mode: 



(CTRLI [C^ 



In this mode each key will click as you type (if your volume is turned 
up). This command will toggle the mode on and off- 



Repeats Mode: 



JgTRCI [SHIFT 



In this mode all keys will repeat. Again, the command toggles. 



Disable /Enable Program: 



[CTrTI [RPNTSTOPi 



KE can be temporarily disabled with this command. The keyboard 
will then behave as it normally does until you press these keys again. 
Use this command when you need to print an original key, one that 
you've otherwise reassigned- However, if you are in quote mode, any 
string or program assignments you may have made are automatically 
disabled, so you don't need to disable the program in this case. 



Terminate Program: 



[CTRLNC=]|SHIFr 



KE can be entirely eliminated by pressing these three keys together. 
The keyboard will revert to its usual state. The memory used by the 
program will be released to BASIC memory space only if no other 
programs have been installed after KE. Otherwise the top of memory 
pointer is left untouched. 



Clear Quote Mode: 



iCTRLl [HOME 



This command does exactly what it says. It becomes especially useful 
in KE. because when you're in quote mode all keys print to the screen, 
even keys that initiate the built-in commands or those you may have 
assigned lo your own routines. This command aiso clears any inserts 
left over after you have used IINSTI to open up space in the text. 



Set Auto Insert/Delete Mode: [C=] [DELl 



In this mode the IINSTI key is no longer active. Instead everything past 
the cursor on the BASIC line, {logical line of 80 characters), moves 
right as you type, and the new character is placed at the cursor 
position. When the BASIC line is full, characters will start to get 
overwritten. 

The cursor and home keys behave as they normally do, so you can 
move around the text at will. 

if repeat mode is on, then all keys will be repeated if held down. 
Strings assigned to keys, however, will not be repeated. 



The IDELI key behaves differently in this mode. Everything past the 
cursor, up to the end of the BASIC line, is moved left one position and 
overwrites the character at the cursor. In effect the key acts as a black 
hole through which you may drop unwanted characters. It will repeal 
if held down. 



Clear Auto InseH/DeletelMode: ICTRLllDEL 



Returns the editor to the normal insert/ delete mode of operation. 



Set Quote Mode: 



rC^IHOMEl 



This could be useful when you are editing text between quotes as you 
then don't have to enter Ihe quote character. 



One Character Quote: 



m 



This only affects the next character typed, it is like being in quote 
mode for one character only. 



Forward Tab: 



m 



This command is useful for tabbing through a BASIC or DATA line. Try 
it to see how it works. 



Back Tab: 



smm fn 



This command works similarly to forward lab except that the move- 
ment is reversed. 



Tab To End: 



EH EI 



The cursor moves forward to the position past the last character on the 
BASIC line. 
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Tab To Start: 



ICTRLl fFT] 



Configuration 2 



The cursor moves lo the beginning of the BASIC line. 



Ciear To End Of Line: 



SHlFTllFSl 



All characters on the BASIC line from the cursor onward are cleared. 



KE is again totally relocatable, but you are adding a profile to it, wilh 
your ML routines (if any) residing in free RAM. After installing KE, run 
your profile program. Do not select the option to generate an absolute 
version. This configuration is useful for testing out a new configura- 
tion. 



Clear To End Of Screen; 



EUlO 



All characters from the cursor lo the end of the screen are cleared. 



Screen Colour; 



ISHlFTI IFTI 



Each lime you enter this command Ihe background colour of the 
screen will change to the nex( higher colour, i.e.. black lo white, etc. 
By using this command in conjunction with the following two for 
border and text, you should be able to set up an ideal colour 
combination. 



Border Colour: 



Increments the border colour 



Text Colour: 



EH EH 



CTRLllFf] 



Increments the text colour. The entire text displayed on the screen 
changes instantly. 



List Freezer: 



[gTRD [F51 



Use this command to freeze the listing of a BASIC program as it flies 
past on the screen. After typing this command, if you hold the ICTRLI 
key down, the listing will continue to scroll at a slow rate. Releasing 
the key freezes the listing again. The [RUN/STOPi key also behaves 
similarly in this respect, except that the scroll will be faster. 



Configuration 3 

This is essentially the same as 2, except you want to install your ML 
routines. As the Profile program defines the absolute start address of 
eachroutine,theonly way this is possible is for you to have assembled 

your routines into an absolute memory block at the real end of BASIC 
memory, which is normally S9FFF, Install your program (or programs) 
before installing any other programs. 

Conflguration 4 

This is the absolute version of 2. KE must be the first program 
installed so that it sits at the real top of BASIC memory. Run your 
profile program and this time choose to generate the absolute version 
to disk. In future you can install your own version, instead of KE. Be 
sure it is always the first program installed. Of course you still have to 
load any ML programs into free RAM, 

Configuration 5 

This is the absolute version of 3, and one that will find the most use. It 
is identical to 4 if there are no ML programs. ML programs must first 
be installed, then KE, thus concatenating the programs at the real end 
oJ BASIC memory. Now run the profile program and save the result to 
disk. 



KEYPOWER FROM KEYBOARD EXPANDER 



It is really only useful for freezing a List, but will also freeze everything The configuration process will now be explained in terms of Keypo- 
if you use it otherwise. wer, a program we will generate along the lines of configuration 5. 



Get out of a freeze by pressing the IC^I key on its own. 



Phosphor Saver: 



CTRL 



So named because it blanks out the screen completely, as if it were 
powered off. It also does a complete freeze of anything that is running. 
Use the |C=| key to get out of this one too. 



CONFIGURATIONS 

To unlock the door lo Keyboard Expander and add your own key- 
board profile, you need to run a Profile program. But first a word about 
the possible memory configurations. There are several, depending on 
whether you are defining ML routines, whether these will reside in 
free RAM or are to he installed, and whether you are going to generate 
an absolute version to disk. 

Configuration 1 

The original program, KE, you have already seen. It is totally relocat- 
able and generally useful to have around without the overhead of 
strings and routines. 



Typein "KE.PF". the Profile Program, and save it under this name. 
This program is used to create profile programs by adding definitions 
in the line range. 1 00 to 799. It should never be modified. With KE.PF 
still in memory, type in "KPOWER.DEFS" and save it under the 
name. "KPOWER.PFV 

We are going lo include two useful ML routines. One is a BASIC Line 
Ruler for highlighting program lines and the other is a List Scrolling 
routine that I have adapted from an article in the TRANSACTOR, Vol 
5, Issue 6, by Darren Spruyt. Type in and save the generator program, 
' SCROLLGEN " , then run it to generate " SCROLL.OBJ ' on disk. 

Type in and save ' INSTALL " which is a general purpose program to 
install ML programs in memory. 

To start with, no program should be installed, not even KE. If KE is the 
only program installed at this stage, you can use the 'Terminate" 
command, described before, to eliminate it. Otherwise power up or 
otherwise reset the computer. Ixiad and run INSTALL Enter the 
filename. SCROLL.OBJ, when asked, and press return. Now load and 
run KE. Finally load and run KPOWER,DEFS, It will take about 10 
seconds, then ask if you wish to create an absolute version. Follow the 
steps to do this, saving the file under the name, " KPOWER " . You can 
use Keypower now, as it is in memory. 
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You mu»t use INSTALL to install Keypower In future. JusI 
loading il as an object program wont do the job. You can make 
INSTALL specific by replacing line 22 with:- F$ = KPOWER. Also 
remember Itiat Keypower must always be the first program installed 
so Itiat it loads at the lop of real BASIC memory. 



Initialize Drive: 



Initializes the disk drive. 



Validate Disk: 



[CTrEI TI 



[CTgCl lvl 



In Keypower, all the KE commands are still there, but now you have 
some additional ones. 

Repositioned Keys 

The Up and Left Arrow keys perform the Cursor Up and Cursor Lefl 
functions respectively. However, the shifted cursor keys retain their 
normal usage. 



Read Error Channel: 



[CTRL 



Prints and executes a one line {line 8000) BASIC program to read the 
disk error channel. The line is automalicaily deleted afterwards. 



List Directory; 



[CTRLi rpI 



Validates the disk. 



Rename File: 



ICTREl lNl 



This interactive command lets you enter the new filename and then 
the old filename. Press and release IRUN/STOFl after each filename is 
enlered- 



List Scroll Down: 



m 



This key, when held down, will scroll a BASIC listing on the screen 
{assuming the BASIC program is in memory). The listing wiil scroll 
downward and display BASIC lines in order of decreasing line num- 
bers. If no BASIC lines are displayed on the screen, the listing will start 
with the highest numbered BASIC line. 



Prints and executes a BASIC program (lines 8000-8008) which lists 
the disk directory directly to the screen. Press any key to pause, orQ 
to quit. The program lines are not deleted, so RUN 8000 will execute 
the program again. To delete the program lines press ICTRLl [Zj. If 
these lines clash with your BASIC program in memory, you can select 
the "TESr^ BASIC Partition (described below). 

This program was copied from an example in the POWER Manual. 



Test Partition: 



ETrDH 



This command creates a temporary BASIC partition immediately 
following any BASIC program currently in memory. You may then use 
the Test partition for whatever purpose. To release the TEST partition 
and return to your original BASIC program environment, press ICTRLl 



Load BASIC Program: 



IgTRLl lLi 



This function recalls an interactive command string. You enter a 

variable filename lo a (LOAD" \8) command. As for all 

interactive strings, press and release IRUN/STOFl to continue after 
entering your data from the keyboard. Pressing [SHIFTI 1 RETURN I 
aborts the whole procedure. If you complete the comman d yourself 
(e.g., you may want a ML load instead - . , , ' ,8,1), then the I RETURN! 
key on its own will both action what is printed on the hne as well as 
terminate the remainder of the string output. 



Run BASIC Program: 



[CTRLl lRl 



Like the previous command, but also runs the program il loads- 



Save BASIC Program: 



[gTRCI ISI 



WARNING: If a List is currently in progress, press IRUN/STOPI lo 
stop the List before you use this function. This also applies for 
scrolling up. 



List Scroll Up: 



111 



Like list scroll down, only the scroll is upward and lines are displayed 
in order of increasing line numbers. 

The Scroll routines have been implemented as a Parallel program. 



BASIC Une Ruler: 



EHIH 



This command will put a border (much like a transparent ruler) 
around the BASIC line at the current cursor row. h is useful for 
scrutinizing the BASIC line underneath it. The ruler remains on the 
screen and will move in conjunction with the cursor. 

This function can be used simultaneously with all the other functions 
described so far. 

The routine has tieen implemented as a Background routine. While 
running, it uses the Tape Buffer (location 828) to generate the sprite 
data. 



Kill Une Ruler: 



IPTKEI fFSl 



This command terminates the Line Ruler function. 



BASIC Keywords 



Press the IC-I key in conjunction with the alphabet keys lo print the 
following keywords; 



nteractive command lo save a BASIC program, 



Load From Directory: 



ICTRL 



This function loads the file displayed in a normal directory listing 
when the cursor is positioned at the beginning of the displayed line. It 
is a good example of how a tedious manual process can be replaced by 
a string. 



ASC( CHR$( DATA FOR GOTO INPUT LIST 
MID$( NEXT OPEN PRINT RIGHT$?TR$( 

Profile Update 

With an absolute version like Keypower in memory, and no other 
program installed, it is possible to run a profile program as many time 
as you wish in order lo add new definitions. You can even create disk 
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versions, but if slrings have been replaced by new ones, there still will 
remain the memory overhead for Ihe old ones. Then it's best, al some 
later stage, to create a fresh version. 



BUILDING YOUR OWN PROFILE 

As stated l>eIore, you must add your profile to KE.PF to generate a 
Profile program. Use line numbers in the range 100 to 799 and don't 
define any variables. Whatever you need to use has been declared in 
KE.PF. Refer to KPOWER.DEFS for examples. 

Each key has its own variable to define it as shown in Table 1. 
Qualifying variables for the shift factors are shown in Table 3. Which 
group lo use will depend on the sense in which a key is defined, the 
source key in an array or Ihe target key for reposition. 

Each key function has an entry in a two dimension array. The first 
dimension specifies the shift factor and the second the key. Each 
feature - reposition, string, routine - has its own array. There are also 
two variables for defining ihe start address of a "jump vector table" 
and a "command line" for ML programs. See Table 2. 

When defining strings you will need lo use the string variables shown 
in Table 4, 

Repositioned Keys 

These gel defined in array ZPQ . For example, ZP(SD,2)=P0, moves 
the QUOTE function to the unshifted POUND key. The QUOTE 
function can sllll be used on its original key as long as you don't make 
it the larget of some other function, ZP(ND,UA}=LA + SF gives you 
the normal UP ARROW display on the shifted LEFT ARROW key. In 
the example below, the PLUS and MINUS keys have been completely 
interchanged. 

ZP{ND,PL) = MI;ZP(SD,PL) = MI + SF:ZP{CD,PL) = MI + 

CF:ZP(TD,PL) = MI + TF 
ZP(NO,[Vll) = PL:ZP{SD,MI) = PL + SF:ZP(CD,MI) = PL + 

CF;ZP(TD,[Vlf)-PL + TD 

Strings 

These get defined in the array ZS$0 . There are some elementary 
rules to t>e followed. 

Always slart off a new siring definition with S$, For example, 

ZS$(CD,L) = S$+"tlST"+R$ 

will action the List command when you press IC=1 B- 

1! the complete siring does not fit on the line, add in the remainder on 
following lines. For example 

ZS$(TD,B)-ZS$(TD,B)+'' REMAINDER" 

will continue the siring from the previous line. 

If you define more than 255 characters in a string, you'll get a BASIC 
error. To get round Ihis, you need to link the siring to some other key. 
Suppose that the string on the original key, C = - D is near or at 255 
characters. You may link it to the key, Y, as follows: 



ZS$(CD,D) = ZS$(CD,D) + LN$ + CHR$(Y) 
ZS$(ND,Y) = L$ + " LINKED STRING " 

Note the linking value, LN$, specifies a normal (unshifted) factor, and 
CHR$0 has its usual sense, as in BASIC. On the second line. L$ is 
used as the first character in Ihe linked string, instead of S$ which is 
used lo dehne a new string. This is always so for a linked key- 
Any number of keys may be linked in this way. A key you link to does 
not loose its original function, bul you must not use it in another 
string or routine definition. For this reason, it is advisable to use the 
normal typing keys and save the shifted functions for strings or 
routines. 

When defining an interactive string, you need to insert the variable, 
1$, al the positions you wish lo pause at. For example, 

ZS$(SD,K) = S$ + ' INSERT DISKETTE " + 1$ + N$ 
ZS$(3D,K) = ZS$(SD,K)+ 'LOAD" +Q$+ ^SYMASS" + 
Q$-t-\8"+R$+"RUN"+R$ 

Routines 

These gel defined in array ZRO . For example, ZR(TD.G) ^ 49195 . will 
run the interrupt routine located al 49195 when you press |CTRL1 [G1. If 
you are using background or parallel programs, then the variable, ZV, 
must be assigned the address of a 36 byte area for the "iump table". If 
you are implementing your own commands, the variable, ZC, must 
be assigned the address of a 40 byte area to hold the command line. 



MACHINE LANGUAGE IINTERFACE 

With machine language you can realize the full potential of Keyboard 
Expander. The simplest type of ML program is the Interrupt Rou- 
tine which you assign lo a key. It will be entered as a subroutine 
within the Keyboard (timer) inlerrupl every time the key is pressed. 
The key matrix code (0 lo 63), in case you need it, is passed in the ,Y 
register and the shift state in the .X register. These values are also 
stored by the Kernel In locations 203 and 653. 

For Background and Parallel programs, you will need to interface inlo 
Keyboard Expander through a "jump vector table". This table lakes 36 
bytes and contains 12 jump instructions. Only the first six are of use lo 
you. Use the remaining 18 bytes lor uninitialized data if you wish. 

The jump table cannot be hard-coded because Keyboard Expander 
can move about in memory. You have lo assign the start address of the 
lable to the variable, ZV, in your profile program. When this program 
is run, Keyboard Expander will copy the table into your program 
space. 

You will also need this table if you are initiating background routines 
or parallel programs from within a running ML program. Here you 
make use of the USER JUMP address at $31 1 /S3I2, Store the address 
tor your table in low/high byte format. Then change location $310 
from its normal $4c Timp" instruction), to any other value. Keyboard 
Expander will delect the change and copy the lable inlo your program 
space. You can be certain the table has been copied when $310 
contains the jump inslruction again (within one timer interrupt 

period). 

In PAL source code, your table should look something like this: 
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KEVECTOR = • 


;START ADDRFSS 


BRSTART *= - + 3 


;START BACKGROUND 


BREND •=* + 3 


;END BACKGROUND 


PPSTART •= - + 3 


;START PARALLEL 


PPEXCL •= * + 3 


;RUN EXCLUSIVE 


PPSHARE ■-• + 3 


;RUN SHARED 


PPEND •= * + 3 


;END PARALLEL 


NOTUSED •= • + I8 


:NOT RELEVANT 



Background Routioes 

JSR BRSTART will iniliale a background routine from your inler- 
rupl routine or ML program, provided one is not already in existence. 
Pass the start address in the .X/.Y registers in low/higti byte format. A 
zero status return means your routine has started. 

The routine is coded as a subroutine to run within the keyboard 
interrupt. It wili l>e called on every clock t'ck until it disables itself with 
a JMP BREND. 

Parallel Programs 

A Parallel program has the same start/end interface as the back- 
ground routine, only use PPSTART/PPEND instead. When first 
started, it will multitask with BASIC by getting scheduled after every 
alternate timer interrupt. This is all right for a memory bound 
program, but if you're doing 1/0 to the disk, printer, etc, BASIC will be 
almost unusable. In this case and also if you need to lock out the 
keytxiard, you must run exclusively by doing a JSR PPEXCL. When 
you want to multitask again do a JSR PPSHARE. 

Command Line 



The interrupt routine assigned to the |CTRL| I RETURN 1 function has 
the privilege of receiving the command line if you assign the start 
address of a 40 byte data area to the variable, ZC, in the profile 
program. On this keypress, the line will be converted to ASCII and 
copied into the assigned area before your routine is entered. This will 
allowyou to implement commands like renumber, delete, merge, etc. 
by starling a parallel program if necessary. 

Installing ML Programs 

Procedures to do this have been discussed in the section on Keypo- 
wer. Normally, as for SCROLL.OBJ, you shouldn't need to run any 
initialization code. But if you have to, the INSTALL program is smart 
enough to enter your initialization routine provided you start your 
program as follows: 

JMPINIT ;to in it routine 
.ASC'INIT" ;special string 
INlT(code) ;init routine 



CONCLUSION 

Keyboard Expander works intimately with the Kernel keyboard inter- 
rupt to provide the interface through which you can manipulate any 
key to your advantage. It has the potential and flexibility to become 
whatever you want it to t>e. even a total keyboard utility. So if you do 
develop any useful routines for it, don't be shy. Send them to the 
TRANSACTOR so that we ail can enjoy them. Til really look forward to 
that. 



TABLE 1 - KEY VARIABLES 



IKEYSI 


VARIABLES 


to i 


AioZ 


E] to [9) 


N0toN9 


EBEilS FT] 


F1.F3,F5.F7 


fDEn 


DE 


IRETUPlN 


RE 
Rl 


iCURS0R"RK3Frn 


ICuftSOfl downi 


DO 


iUP ARROW 


UA 
LA 
PO 
HO 
SP 


IlEFTaRrOwI 


IPOUND 


[HOM: 


ISPACEl 


f^ □ 


AT SE 


D 


CM SL 


[± B B 


PL Ml EG 


□ □ 


AS PE CO 



TABLE 2 


- ARRAY/STORAGE 


STORAGE 


DESCRIPTION 


ZP(3,62} 


REPOSITIONED KEYS 


ZR{3.62) 


ROUTINES 


ZS$(3,62) 


STRINGS 


ZV 


JUMP VECTOR TABLE 


20 


COMMAND L NE 



TABLE 3 - SHIFT FACTOR 



VAR 


USE 


VAR 


USE 


MODE 


NO 


ARRAY 








NORMAL 


SD 


. ARRAY 


SF 


TARGET 


SHIFT 


CD 


1 ARRAY 


OF 


TARGET 


COMMODORE 


TD 


1 

1 ARRAY 


TF 


TARGET 


CONTROL 



TABLE 4 - VARIABLES USED IN DEFINING STRINGS 



VAR 



DESCRIPTION 



S$ 

L$ 

R$ 

N$ 

0$ 

LN$ 

LS$ 

LC$ 

LTS 



Always the first in a new string 

Always the first in a linked siring 

To encode a RETURN function 

To encode a SHIFT RETURN function 

To encode a QUOTE character 

Normal factor wtien linking to another key 

Shift factor when linking to another key 

Commodore factor when linking to another key 

Control factor when linking to another key 
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Keyboard Expander: Generates PRG fUe ' K£ " on disk. 



GN 

OB 

GP 

AM 

NO 

CD 

GN 

Bl 

\L 

CJ 

IL 

Gl 

LK 

PH 

Af 

JD 

DP 

FM 

IL 

NM 

10 

KB 

AL 

AO 

IM 

HC 

PJ 

KM 

MC 

Nl 

NF 

FL 

CD 

KE 

MF 

LH 

PI 

GD 

KJ 

LM 

DG 

IL 

GL 

AN 

NP 

BM 

HK 

HB 

DA 

NC 

LB 

JG 

MC 

EO 

JO 

JB 

IE 

BF 

KD 

CB 

IF 

BF 



1000 rem program to create tile "ke" on disk 
1010 rem first loop ensures checksum is correct 
1 020 rem second loop writes file 
1030 for 1 = 1 to 2745 : readx ; ch = ch + x ; next 
1040ifch<>276146 thien print 'checksum error 

1050 restore 

1060 open 8,8,6, - Oike.p.w" 
1070 for j = 1 to 2745: readx 
1060 print#8,chr$(x); : next 
1090 closes : end 



end 



1100 data 1. 8 
11 10 data 48, 54 
1120 data 32, 62 
1130 data 9, 32 
1-!40data169, 70 
1150 data 240, 39 
1160 data 75, 9 
1170 data 56,229 
1180 data 51, 133 
1190data 54,133 
1200data 54, 165 
1210data 30,169 
1220 data 200, 206 
1230 data 169, 3 
1240 data 0.101 
1250 data 75,145 
1260 data 200. 169 
1270 data 145. 29 
1280 data 27, 145 
1290 data 200, 165 

1300 data 145, 29 

1310 data 133, 30 
1320 data 26.201 
1330 data 3, 32 
1340data201. 4 
1350 data 101, 27 
1360 data 26,133 
1370 data 9,201 
1380 data 24, 101 
1390 data 9, 101 
1400 data 8,201 
1410data 24, 101 
1420 data 9, 76 
1430 data 32, 75 
1440 data 9.101 
1450 data 8,201 
1460 data 232, 32 
1470 data 171, 8 
1480 data 9, 96 
1490 data 29,208 
1500 dataioe, 133 
1510 data 1,133 
1520 data 45, 165 
1530 data 0, 177 
1540 dala 32, 76 
1550 data 108, 27 
1560 data 129, 76 
1570 data 80, 1 
1580 data 0, 
1590 data 1, 21 
1600 data 0, 1 
1610 data 47, 4 



. 13, 8, 


10, 0, 


, 51. 58, 


162, 0, 


, 9, 32, 


75, 9, 


. 75, 9, 


201, 129, 


, 32,210. 


255, 96, 


. 32, 75, 


9, 133, 


. 133, 54, 


165, 55, 


. 53,133, 


55, 133, 


. 53, 165, 


56,133, 


, 56, 133, 


28, 133, 


, 27,133, 


29, 165, 


, 0, 168, 


162, 5, 


, 251 , 230, 


30, 202, 


, 24,101, 


27,133, 


, 28, 133, 


30, 160, 


, 29,200, 


169, 69, 


, 88, 145, 


29, 200, 


, 200, 200, 


200, 200, 


, 29,200, 


165, 28, 


, 33, 145, 


29, 200, 


, 1 65, 27, 


133, 29, 


,160, 0, 


32, 75, 


, 5, 240, 


33,201, 


, 42, 9, 


165, 26, 


,208, 21, 


32, 75, 


, 1 33, 29, 


32, 75, 


, 30, 76, 


171, 8, 


, 1,208, 


20, 32, 


, 27, 32. 


49, 9, 


, 28, 32, 


49, 9, 


, 2, 208, 


15, 32, 


, 27, 32, 


49, 9, 


,171, 3, 


201, 3, 


, 9, 24, 


101, 27, 


, 28, 32, 


49, 9. 


, 96, 48, 


13, 41, 


, 42, 9, 


202, 208, 


, 0, 32, 


75, 9, 


, 8,160, 


0,145, 


, 2, 230, 


30, 40, 


, 31,169, 


9, 133, 


, 25, 96, 


8,165, 


, 32,229, 


46, 176, 


, 31,230, 


31,208, 


,101, 9, 


169, 5, 


, 0, 0, 


16.129, 


,188, 9, 


99, 75, 


, 16, 0. 


4, 24, 


, 1, 26, 


4, 97, 


, 4, 4, 


68, 0, 


,51, 4, 


97, 0, 


. 97, 0. 


0, 1, 



158, 50 
0, 

32, 75 
240, 6 
165, 25 

53, 32 
133, 33 

27, 133 
34, 229 
52, 133 

28, 133 
145, 29 
208, 246 

29, 169 
0,169 

145, 29 

169, 80 

200, 165 

145, 29 

165, 34 

165, 28 

9, 133 

128,144 

41,127 

9, 24 

9,101 

76,103 

75, 9 

32, 75 

76,171 

75, 9 

32, 75 

208, 17 

32, 75 

76,171 

159, 170 
250, 76 

32, 49 
29, 230 

96, 169 
32, 169 
31,197 
13, 160 

7,230 

40, 96 

42, 10 

69, 88 

0, 97 

0, 

97, 
0, 1 

55, 4 



LJ 
LD 
PI 
CH 
KD 
Fl 
GL 
MM 
OP 
MC 
JH 
GJ 
FD 
BC 
FH 
NG 
FF 
FF 
HL 
PM 
JH 
PL 
JM 
LG 
JN 
HC 
El 
KM 
OK 
OK 
ON 
JB 
MO 
EB 
PN 
MC 
FJ 
AA 
BB 
PC 
AF 
IB 
BM 
Nl 
KF 
OF 
OH 
KM 
PL 
IJ 
GP 
FL 
CN 
AG 
FK 
LF 
EA 
FN 
KA 
PO 
NB 
KO 
EA 
JP 



1620 data 97 
1 630 data 
1640 data 248 
1650 data 97 
1 660 data 
1670 data 82 
1 680 data 4 
1 690 data 5 
1700 data 37 
1710data129 
1720 data 32 
1730 data 21 2 
1740 data 133 
1750 data 133 
1760 data 96 
1770 data 98 
1780 data 97 
1790 data 246 
1800 data 145 
1810 data 230 
1820 data 96 
1830 data 232 
1 840 data 232 
1850 data 176 
1860 data 97 
1870 data 232 
1880 data 32 
1890 data 36 
1900 data 98 
1910 data 4 
1920 data 96 
1930 data 240 
1940 data 129 
1950 data 32 
1960 data 249 
1970 data 97 
1 980 data 245 
1990 data 16 
2000 data 240 
2010 data 97 
2020 data 97 
2030data214 
2040 data 97 
2050 data 176 
2060 data 4 
2070 data 32 
2080 data 21 1 
2090 data 96 
2100 data 97 
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2160 data 96 
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2180 data 97 
2190 data 247 
2200 data 208 
2210 data 97 
2220 dala 97 
2230 data 32 
2240 data 208 
2250 data 208 
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4. 97. 

0, 0, 1 

1. 29, 5 
4, 97, 

0, 0, 1 

1, 72, 5 
0, 1, 42 
0, 0, 1 

97, 169, 191 
169, 64,129 

0, 97.133 
169. 1. 97 
169, 1, 97 
238, 32, 208 
208, 96, 96 
173,134, 2 
216, 97,132 

132.245, 97 
208,251, 97 

208.246, 96 
134,245, 96 

48, 3, 96 
224, 25, 97 

97, 9, 128 
255,233, 96 
166,245, 98 

213, 98, 32 
97,145,209 

136, 97, 48 

176,242, 96 

196, 213, 97 

97, 166,214 

208, 9, 129 

15, 97,240 

32.174, 4 

249, 97, 132 

164,245, 97 

196,213, 97 

97, 192, 40 

97, 208, 46 

30, 97, 166 

97,176, 19 

223, 4, 97 

129, 32,223 

208,249,129 

214, 97,132 
97, 208, 3 
97,192, 39 
97,177,209 

6, 97,201 
201, 44, 96 
213, 97, 166 
144, 7, 97 

97, 1 76, 1 
4, 97,201 

32, 223, 4 

32, 97,240 
240,191, 97 

97,164,211 

1, 96,202 
176. 98,172 

98.141. 32 
98,141, 17 
97, 224, 223 



Th# Tnmoctor 



X) 



Mw.Wa6:W*«ia7,lliii»03 





CG 


2260 data 97,208,249, 98,140, 32,208, 97 


KK 


2900 data 9, 4, 96,104,129,141. 10, 4 




EM 


2270data 9, 16, 98,141, 17,208, 96, 96 


JJ 


2910data 96,104,129,141, 11, 4, 96,104 




AC 


2280 data 129, 32,165, 5, 98,238, 32,208 


OP 


2920data129, 141, 12, 4,129,173, 8, 4 




KB 


2290data129, 32,135, 5,129, 32,104, 5 


FM 


2930data 96, 72,129,173, 7, 4, 96, 72 




AH 


2300data 96,138, 97, 41.164. 97,201,164 


BN 


2940 data 1 29, 1 73, 6, 4, 96, 72,129,173 




LL 


2310 data 97,240,246, 97,201,132, 97,208 


KM 


2950data 5, 4, 96, 72,129,173, 4, 4 




JA 


2320data 6, 98,206, 32,208,129, 32,174 


PN 


2960 data 96, 72,129,173, 3, 4, 96, 72 




MF 


2330data 5, 98, 76.126,234, 97,162,127 


HD 


2970data129, 173, 12, 4,129,141, 8, 4 




NG 


2340data 98,142, 0,220, 98,174, 1,220 


JD 


2980 data 129, 173, 11, 4,129,141, 7, 4 




JO 


2350data 96, 96, 96, 72, 97,169, 32,129 


LD 


2990data129,173, 10, 4,129,141, 6, 4 




DO 


2360 data 45, 15, 4, 97,240, 12, 97,160 


GO 


3000data129, 173, 9, 4,129,141, 5, 4 




NG 


2370data 15, 98,140, 24,212, 96,168, 96 


NM 


3010 data 129, 142, 4, 4,129,140, 3, 4 




LA 


2380dala136, 97.208,253, 98,140, 24,212 


PC 


3020datal29, 108, 0, 4,129,108, 13, 4 




GO 


2390data 96,104, 96, 96, 96,104, 96, 24 


OC 


3030 data 129, 173, 14, 4, 97,208, 8,129 




NK 


2400data 97,105, 1,129,141, 0, 4, 96 


FF 


3040data142, 13, 4,129,140, 14, 4, 97 




KP 


2410data104, 97,105, 0,129,141, 1, 4 


KN 


3050data169, 0, 96, 96, 97,169, 0,129 




IB 


2420data 97,169, 8,129, 45, 15, 4, 97 


Bl 


3060data141, 14, 4, 96, 96, 97,169,129 




ED 


2430data208, 7, 97,169, 8,129, 13, 15 


NG 


3070data 97,208, 2, 97,169, 1,129,141 




HD 


2440 data 4, 97,208, 8, 98, 76,126,234 


HG 


3080 data 2, 4. 96, 96, 97,169, 65,129 




NB 


2450data 97,169,247,129, 45, 15, 4,129 


Gl 


3090 data 141, 2, 4,129, 76,249, 6, 97 




NA 


2460data141, 15, 4, 96, 96,130,162, 80 


CF 


3100 data 169, 1,129, 44, 2, 4, 97,208 




AB 


2470data 6,131,160, 80, 6, 98,142, 20 


JA 


3110data 15,129,142, 7, 4,129,140, 8 




IL 


2480dala 3, 98,140, 21, 3, 97,162, 49 


FD 


3120data 4, 97,162, 0,129,142, 6, 4 




CB 


2490 data 97, 160, 234, 129, 142, 0, 4, 129 


JA 


3130data129, 141, 2, 4, 96,138, 96, 96 




KF 


2500data140, 1, 4, 96, 96,130,162, 79 


HC 


3140data 98,174,141, 2, 97,224, 3, 97 




FG 


2510dala 9,131,160, 79, 9, 97,208, 10 


Fl 

1 


3150 data 240, 113, 97,224, 7, 97,208, 72 




EA 


2520 data 130, 162, 19, 7,131,160, 19, 7 


KL' 


3160dala129, 173, 15, 0, 97,240, 12, 97 




MH 


2530 data 97,208, 4, 97,162. 72, 97,160 


Gl 


3170data169, 0,129,141, 13, 0, 97,169 




OF 


2540data235, 98,142,143, 2, 98,140,144 


MG 


3180data160, 129, 141, 14, 0, 97,208. 14 


1 


Bl 


2550 data 2, 96, 96, 97,165,207, 97,240 


HN 


3190data 97,165, 55,129,205, 11, 0, 97 


i 


FO 


2560data 12, 97,165,206, 98,174,135, 2 


NJ 


3200data208, 33, 97,165, 56,129,205, 12 




LI 


2570data 97,160, 0, 97,132,207, 98, 32 


PA 


3210 data 0, 97,208, 26,129,174, 13, 


■ 


GH 


2580data 19,234, 96, 96, 97,165,203, 97 


FP 


3220dala 97,134, 55, 97,134, 51,129,172 




AH 


2590data201, 63, 97,176, 75, 97,160, 


DF 


3230da1a 14, 0, 97,132, 56, 97,132, 52 




AN 


2600data 96, 10, 96, 10, 96, 10, 97,144 


NA 


3240data 97,166, 45, 97,164, 46, 97,134 




LM 


2610data 2, 96,200, 96,200, 96, 10, 97 


JE 


3250data 47, 97,132, 48, 97,134, 49, 97 




NC 


2620 data 144, 2. 96,200, 96, 24,130,105 


NN 


3260data132, 50,129, 32,207, 5, 97,162 




KH 


2630data 16, 0, 97,133,245, 96,152,131 


GP 


3270data 49, 97,160,234, 98,142, 20, 3 




NJ 


2640data105, 16, 0, 97,133,246, 97,169 


FL 


3280data 98,140, 21, 3, 97,208, 34, 97 




OL 


2650dala 0, 98,174,141, 2, 97,240, 13 


AB 


3290 data 165, 203, 97,224. 4, 97,208, 34 




FB 


2660 data 96, 24, 97,105, 4, 96,202, 97 


JH 


3300data 97,197,197, 97,240, 30, 97,201 




DA 


2670 data 240, 7, 97.105, 4, 96,202, 97 


LK 


3310 data 63, 97,240, 9, 97,201, 51, 97 




LB 


2680data240, 2, 97,105, 4, 96,168, 97 


BC 


3320data208, 22, 97,133,197,129, 76, 31 




EP 


2690 data 177, 245, 97,240, 27, 96,170, 97 


LK 


3330 data 4, 97,169,128,129, 77, 15, 4 




JK 


2700data 41, 63, 97,133,203, 96,138, 97 


NE 


3340 data 129, 141, 15, 4, 98,142,142, 2 




NO 


2710data162, 0, 97, 41,192, 97,240, 12 


DN 


3350data129, 32,113, 5,129, 76, 73, 8 




KA 


2720 data 96,232, 97,201, 64, 97,240, 7 


FP 


3360 data 129, 44, 15, 4, 97, 48,248, 98 




MK 


2730data 96,232, 97,201,128, 97,240, 2 


00 


3370 data 236, 142, 2, 97,240, 23, 97,224 




PK 


2740data 96,232, 96,232, 98,142,141, 2 


CN 


3380data 5, 97,208, 11, 97,169.128, 98 




ED 


2750 data 96, 96, 96,200, 97,177,245,129 


FL 


3390data 77,138, 2, 98,141,138, 2,129 




DC 


2760data141, 16, 4, 96,200, 97,177,245 


08 


3400 data 76,133, 7, 97,224, 6, 97,208 




NB 


2770 data 129, 141, 17, 4, 96,200, 97,177 


EK 


3410data 4, 97,169. 32. 97.208,208,129 




AH 


2780data245, 129, 141, 18, 4, 96, 96, 97 


JL 


3420 data 32,235, 5,129, 32, 61, 6, 97 




GE 


2790 data 169, 76, 98,205, 16, 3, 97,240 


PK 


3430 data 164, 203, 97,169, 8,129, 45, 15 




EJ 


2800data 23, 98,141, 16, 3, 98,173, 17 


FB 


3440 data 4, 97,240, 28, 97,196,197, 97 




CL 


2810data 3, 97,133,245, 98,173, 18, 3 


Li 


3450data208. 16, 97,192, 64, 97,240, 12 




LM 


2820data 97,133,246, 97,160, 35,129,185 


GD 


3460 data 1 29. 1 73. 20, 4, 97,240, 6, 96 




BE 


2830 data 152, 9, 97,145,245, 96,136, 97 


CI 


3470 data 152, 129,206, 20, 4, 97,240, 22 




FH 


2840data 16,248,129,173, 14, 4, 97,240 


DB 


3480data 96, 96,129, 32,165, 5, 97,169 




PE 


2850data 3,129, 32,211, 6, 97,169, 1 


CB 


3490data 0,129,141. 20. 4, 96,152, 97 




IH 


2860 data 129, 44, 2, 4, 97,240, 83, 97 


LE 


3500data201. 63, 97,176,106, 97,197,197 




EF 


2870data 48, 81, 97, 80. 5, 97,169, 


EP 


3510data 97,240,102, 97, 36,157, 97, 16 




GJ 


2880data129, 141, 2, 4, 96,104, 96,168 


EB 


3520 data 98,129, 32,113, 5, 97,166,212 




FN 


2890data 96,104, 96,170, 96,104,129,141 


IF 


3530data 97,208, 86,129,174, 18, 4, 97 


nwlkonKKlet 1 
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OB 


3540 data 240, 81,129,174, 16, 4, 97,240 


MF 


4180data 98,206, 32.208,129, 32,201, 5 




K 


3550 data 12,129, 32,102, 9, 97,160, 


CF 


4190data129. 76,146, 8,129, 76, 73, 8 




HH 


3560 data 97,177,245, 97,240, 67,129, 76 


PL 


4200 data 1 29, 1 73, 17, 4, 97,133,245,129 




PC 


3570data184, 8, 97,133,197, 97,201, 1 


BB 


4210data173, 18, 4, 97,133,246, 96, 96 




CH 


3580data 97,208, 41, 97,169, 4. 98,205 


BN 


4220data129,141, 16, 4, 97, 41, 63,129 




GO 


3590data141, 2, 97,208, 34,129,173, 10 


GK 


4230data 14, 16, 4,129, 44, 16, 4, 97 




AE 


3600 data 0, 97,240, 29, 97,133,246,129 


DL 


4240data 16, 2, 97, 9,128, 97,144, 5 




CL 


3610 data 173, 9, 0, 97,133,245, 97,169 


CG 


4250data129, 174, 19, 4, 97,208, 4, 97 




CK 


3620data 0,129,141, 19, 4, 97,160, 39 


NM 


4260data112, 2, 97, 9, 64, 97,201, 34 




CK 


3630data 97,177,209,129, 32,113, 9, 97 


JK 


4270dala 97,208, 8,129, 77, 19, 4,129 




OL 


3640 data 145, 245, 96,136, 97, 16,246, 97 


GK 


4280 data 141, 19, 4, 97.169, 34, 96, 96 




G 


3650 data 162, 141, 98, 32, 38,235,129, 32 


GC 


4290data129, 76,214, 6,129, 76,228. 6 




Nl 


3660 data 155, 5,129, 32,218, 5, 97,164 


ED 


4300 data 129, 76,252, 6,129, 76,234, 6 




DM 


3670data203, 98,174,141, 2, 98,142,142 


EF 


4310data129, 76,238, 6,129, 76,244, 6 




LP 


3680data 2,129,108, 17, 4,129, 44, 15 


NE 


4320data129, 76,218, 5,129, 76,135, 5 




KK 


3690 data 4, 97,112, 3, 98, 76, 72,235 


HG 


4330data129, 76,165, 5,129, 76,174, 5 




LL 


3700data129, 32,165, 5, 97,165,212, 97 


FE 


4340dala129, 76,201, 5,129, 76,235, 5 




GE 


3710 data 133, 245, 97,165,203, 97,208, 10 


NH 


4350data 96,120, 97,169, 0, 97.162, 20 




HG 


3720 data 98,174,141, 2, 97,240, 1, 96 


HL 


4360 data 129, 157, 0, 4, 96,202, 97, 16 




HB 


3730 data 96, 97,162, 29, 97,208, 23, 97 


ND 


4370 data 250, 129, 32,174, 5,129, 32,201 




PL 


3740data166,212, 97,208, 12, 97,201, 7 


CH 


4380 data 5, 96, 88,129,173, 11, 0, 97 




JO 


3750data 97,240,224, 97,201, 3, 97,144 


CI 


4390 data 133, 99,129,173, 12, 0, 97,133 




PC 


3760data220, 97,201, 51, 97,240,216, 97 


KL 


4400data 98, 97,162,144, 96, 56, 98, 32 




DE 


3770data162, 148, 98, 44,138, 2, 97, 16 


iL 


4410data 73,188, 98, 32,221,189, 97,160 




BH 


3780data 11, 97,160, 4, 97,197,197, 97 


JH 


4420 data 1, 98,185, 0, 1, 97,240, 6 




EJ 


3790 data 240, 2, 97,160, 32,129,140, 20 


MH 


4430 data 98, 32,210,255, 96,200, 97,208 




ON 


3800 data 4,129, 32, 31, 4, 98, 32, 38 


HM 


4440data245, 97,169, 13, 98, 32,210,255 




PD 


3810 data 235, 129, 32,135, 5, 97,165,245 


AB 


4450data 97,162, 0,129,189, 1, 10, 98 




FE 


3820data 97,133,212, 97,230,197, 98, 32 


JJ 


4460 data 32,210,255, 96,232, 97,224, 41 




HC 


3830 data 72,235,129, 32,174, 5,129, 76 


CO 


4470data 97,144,245, 96, 96,112, 75, 69 




MC 


3840 data 148, 5, 97,201, 3, 97,208, 2 


KB 


4480 data 89, 66, 79, 65. 82, 68. 32, 69 




OR 


3850data 97,169, 0, 98.141,141, 2, 96 


DO 


4490 data 88, 80, 65, 78, 68, 69, 82, 96 




MH 


3860 data 200, 97,177,245, 97,133,203,129 


CE 


4500 data 13,118, 40, 67, 41, 32, 49, 57 




IM 


3870data 32,235, 5,129, 32, 61, 6,129 


EB 


4510 data 56, 54, 32, 65, 85, 66, 82, 69 




AK 


3880 data 206, 16, 4, 97,240, 87, 97,162 


AE 


4520 data 89, 32, 83, 84, 65, 78, 76, 69 




ME 
KJ 


3890data 1, 97,208, 2, 97,162, 0,129 
3900 data 142, 19, 4, 97,162,255, 98,142 


EE 


4530 data 89 








DG 


3910 data 3,220,129, 32,102. 9, 97,208 






N 


3920 data 3,129, 32,135, 5, 97,165,198 
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10 


3930data 97,201, 10, 97,176.247,129,172 






HA 


^^ ^m ^^ ^ ^m ^ m ^ h h ■ ■ ■ ^ ■ 

3940dala 19, 4, 97,177,245, 97,240, 65 


EK 


1000 rem program to create file "scroll.obj- ondisk 




EL 


3950 data 97,201, 5, 97,144,192,129, 44 


OB 


1010 rem first loop ensures checksum is correct 




KD 


3960 data 15, 4, 97, 80, 26, 97,165,198 


GP 


1020 rem second oop writes file 




EN 


3970data 97,240, 6,129, 32,135, 5,129 


FA 


1030 for j = 1 to 741 . readx : ch = ch + x : next 




FO 


3980 data 76,224, 8, 97,133,212, 97,162 


PC 


1 040 if ch<>86049 then print " checksum error " ; end 




IN 


3990data148, 98, 32, 38,235,129, 32,135 


CD 


1 050 restore 




AN 


4000data 5, 97,165,198, 97,208,249, 97 


MJ 


1 060 open 8,8,8, "0:scroll.obj,p,w " 




PA 


4010data133, 216, 129,172, 19, 4, 97,177 


B 


1 070 for j - 1 to 2745 : read x 




DB 


4020 data 245, 96,170, 98, 32. 38,235,129 


IL 


1080print#8,chr$(x}; : next 




OF 


4030data238, 19, 4,129.206, 16, 4, 97 


CJ 


1090 closes: end 




JC 


4040data208, 191,129, 32,135, 5, 97,165 


AK 


llOOdata 0.157. 76, 48,157, 76, 64,157 




BG 


4050 data 198, 97,208,249, 98,141, 3,220 


EP 


inOdata 76, 43,159, 76,145,159, 0, 




PC 


4060 data 129, 76,146, 8,129,206, 16, 4 


OC 


1120 data 0, 0, 0, 0, 0, 0, 0, 




CI 


4070data 97,240,238,129,238, 19, 4,129 


D 


1130 data 0, 0, 0, 0. 0, 0, 0, 




HL 


4080data 32,195, 5, 98,140,140, 2, 98 


CE 


1140 data 0, 0, 0, 0, 0, 0, 0, 




NO 


4090data238, 32,208,129, 32,135, 5, 97 


ME 


llSOdata 0, 0, 0, 0, 0, 0. 0, 




FK 


4100 data 165, 198, 97,208,249, 98,141, 3 


KA 


1160 data 0, 0, 32, 88,157, 32,176,158 




FC 


41 10 data 220, 129, 32,135. 5,129, 32,104 


GL 


1170data 32,114,157, 32,225,158,240,245 




JF 


4120data 5, 97, 48, 17,129, 32,104, 5 


DM 


1180data208, 2.1, 32, 88,157, 32,176,158 




DF 


4130 data 97, 16,251, 98,206, 32,208,129 


ND 


1190data169, 24,133,214, 32,108,229, 32 




AL 


4140data 32,201, 5,129, 32, 31, 4,129 


GD 


1200 data 243, 157, 32,225,158,240,238, 76 




EO 


4150data 76,189, 8, 98, 76, 52,234,129 


FF 


1210data 27,157,140, 33,157,142, 34,157 




FH 


4160data 32,235, 5, 97,165,203, 97,201 


KB 


1220data169,255, 141, 41,157.141, 42,157 




Fl 


4170data 1, 97,208, 11, 96,104, 96,104 


OH 


1230data104, 24,105, 1,170,104,105, 


TtwiyanMdor 72 
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KA 


1240data168, 76, 18,157,162,255,232,224 


KF 


1880 data 162, 8,157, 0,208,233, 48,202 




JO 


1250data 25,240, 11,181.217, 16,247, 32 


HK 


1890data202, 16,247,169, 8,141, 10,208 




BD 


1260 data 124, 158, 144,242, 176, 6, 169, 255 


PJ 


1900data169, 56,141, 12,208,169,127,141 




KA 


1270data133, 20,133, 21, 32, 19,166,164 


AA 


1910data 29,208,141, 21,208,162, 25,142 




PE 


1280 data 95,228, 44.208, 5,196, 43,208 


JL 


1920data 46,157, 96,169, 0,141, 21,208 




BD 


1290data 1, 96,202.228, 44,176, 5,166 


Nl 


1930data 76, 15.157, 36,157, 16,244, 32 




LD 


1300data 44,164, 43,136,134, 64,132, 63 


PK 


1940data207, 159, 166,214,236, 46, 157,240 




LP 


1310data160, 0,177, 63,240, 4,200,208 


BB 


1 950 data 233, 1 42, 46,157,181,217, 48, 1 




PP 


1320data249, 96,200,177, 63,197, 95,208 


HG 


, 1960data202, 138, 10, 10, 10, 24,105, 49 




EK 


1330data245,200, 177, 63,197, 96,208,238 


JM 


1 1970data162, 12,157, 1,208,202,202, 16 




EL 


1340data136, 152, 24,101, 63,133, 95.165 


IC 


1980 data 249. 169, 0,162, 40,228,213,176 




IG 


1350data 64,105, 0,133, 96,162, 24,181 


JN 


1990data 2,169,127,141, 23,208, 76,144 




DG 


1360data217, 48, 5,162, 23, 32,255,233 


HE 


2000data159, 173, 134, 2,205, 47,157,240 




MC 


: 1370 data 162, 0, 32,104,233,165,217, 9 


CO 


2010d3ta 11,141, 47,157,162, 6,157, 39 




LH 
NB 


i 1380data128, 133.217, 169, 39,133,213,162 
'' 1390 data 1,142,146, 2,202,134,214, 32 


KE 


2020 data 208, 202, 16,250, 96 








IB 


1400 data 240, 233, 76. 68,158,162, 25.202 






KJ 


1410data 48. 11,181,217, 16,249, 32,124 






FN 


1420 data 158, 144,244, 176, 9, 169,255,133 
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EG 

CK 


1430data 20,133, 21, 72,208, 21,224, 24 
1440 data 208, 4,169, 13,208,245,224, 23 






ON 




\\j ruMi ^^'^^ „^^—„^ 




DA 


1450data208, 5,232, 181,217, 16,243,169 


HC 


12 rem keyboard expander profile prog 




CD 


1460data255, 208, 232, 230, 20,208, 2,230 


BM 


14 rem ke.pf 




HO 


: 1470 data 21, 32, 19,166,165,218, 48, 9 


EO 




lu rcin ^ ™— ^. 




CL 


1480data 9,128,133.218,162, 1. 32,255 


IP 


18 rem (program variables) 




NO 


1490 data 233, 162, 24,134,214, 32.240,233 


OH 


20zx = 0:zy = 0:zd = 0:zi = 0:zj = 0;zb = 0;zp = 




lA 


1500data104, 48, 3, 32,210,255,160, 1 


ED 


22 rem 




AJ 


1510data177, 95,240, 37,141, 35,157,169 


EA 


24 rem (factor for repositioned keys) 




PN 


1520data 0,145, 95,132, 15,165, 95,133 


Fl 


26sf = 64:cf=128:tf=192:femshft,c = ,ctrl 




MJ 


1530data 63,165, 96,133, 64,169,255,133 


KD 


28 rem 




JP 


1540data 20,133, 21, 76,215,166,224, 11 


FA 


30 rem {array dimensions source keys) 




PC 


1 550 data 240, 1 3, 1 73, 35, 1 57, 160, 1,145 


GH 


32nd = 0:sd=1;cd = 2:td = 3:fem *norm,shft,c=.clrl 




DF 


1560 data 63,169, 13, 32,210,255, 96,104 


AE 


34 rem 




GD 


1570data104, 104, 104, 76,111,158, 32,240 


DL 


36 rem (used irt strings for keys) 




KE 


1580data233, 160, 255,200, 177, 209, 192, 39 


EE 


38 rem 




LJ 


1590 data 240, 38,201, 32,240,245,201, 48 


EN 


40s$= "":$ = chr${O):i$ = chf$(0):remnew,linkandi'activG 




AF 


1600 data 144, 30,201, 58,176, 26,152, 24 


;HG 


42 q$ = chr$(34):rS = chr£(13);n$ = chr${141);rem quote, 




MC' 


1610 data 101, 209, 133, 122, 165, 210, 105, 


1 


ret,shfl + ret 




LF 


1620data133,123, 32,121, 0,142, 36,157 


LH 


44ln$ = chr$(3):s$ = chr$(1):c$ = chr$(2):lt$ = chr${4) 




'' BN 


1630 data 32,107,169,174, 36,157, 56, 36 


1 
1 


:rem norm,sh(t,c = ,ctrl 




DN 


1640data 24, 96,120,173, 0, 3,141, 39 


ME 


46 rem 




LJ 


1650datal57, 173, 1, 3,141, 40,157,169 


BH 


48 rem (variables tor keys) 




G( 


1660data100, 141, 0, 3,169,158,141, 1 


ON 


50a=10:b = 28:c = 20;d = ie:e-14:f-21:g = 26:h = 29 




BK 


1670data 3, 32, 30,157,169,255,133,204 




:i-33:i = 34:k = 37:l = 42:m = 36 


1 


HL 


1680 data 165, 214, 141, 37,157,165,211,141 


PM 


52n = 39:o = 38:p = 41:q = 62:r=17:s=13:t = 22;u = 30 


1 

1 
1 


HN 


1690 data 38,157,169, 0,133,211, 88, 32 




:v = 31;w = 9:x = 23;y = 25:z=12 




HN 


1700data 21,157, 96,120.169, 0,141,146 


GJ 


54n0 = 35:n1=56;n2 = 59:n3 = 8:n4 = 11:n5 = 16:n6=19 


i 
1 


LA 


1710data 2,173, 39,157,141, 0, 3,173 




:n7 = 24:n6 = 27:n9 = 32 




AH 


1720data 40,157,141, 1, 3,169, 0,133 


EG 


56f1=4:f3 = 5:f5 = 6:f7 = 3:de = 0:re = 1;ho = 51;ri = 2 




GE 


1730 data 204, 174, 37,157,134,214,173, 38 




:do = 7;ua = 54:ia = 57 




MO 


1740dala157, 133, 211, 56,233, 40,144, 2 


MH 


58pl = 40:mi = 43:eq = 53 po-48al = 46.as = 49;sl = 55 




El 


1750data133,211, 32,108,229, 88,172, 33 


JA 


60pe = 44:co = 45:se = 50:cm = 47:sp = 60 




BA 


1760 data 157, 174, 34,157,196,197,208, 3 


MF 


62 rem 




EO 


1770 data 236, 142, 2, 96,165,207,240, 12 


LN 


64 rem (jmp vector and command line) 




JP 


1780data165, 206, 174, 135, 2,160. 0, 132 


IG 


66 zv - 0:zc = 0:rem addresses, = none 




PF 


1790data207, 32, 19,234, 96,162,153,160 


CG 


68 rem 




GO 


1800data159, 32, 12,157,208, 92,169. 


MM 


70 rem (key definition array storage) 




HM 


1810data141, 46,157,141, 47,157,162, 63 


EN 


72 dim zs${3.62),zp(3.62),zr(3,62) 




PE 


1820data157, 64, 3,202, 16,250,162, 2 


IG 


74 rem 




JG 


1830data169,255, 157, 64, 3,202. 16,250 


DP 








AE 


1840data162, 2,157, 91, 3,202, 16,250 


ID 


78 rem - define your keyboard profile 




JD 


1850data162, 6,169, 13,157,248, 7,202 


KH 


80 rem - between lines 1 00 and 799 




LI 


1860data 16,250,173,134, 2, 32,215,159 


ED 


82 rem ** dont def any new variables •• 




FA 


1870 data 169, 96,141, 16,208, 56,169,216 


LP 









TfwnonKicnof 
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EH 
OD 

AE 
CE 

LI 
GB 
AP 

OM 

MJ 

MM 

LL 

DK 

HB 

NB 
GC 
KA 

10 
OF 
HC 

CD 

JE 

E 

JM 

PF 

MG 
FM 
AH 
EC 
AG 
BM 
DB 
PH 
OB 

GE 



86 rem 

600 rem 

802 rem (relocate tables) 

804 rem 

806 zt = fre(0):zp = peek{55) + 256*peek(56);rem prog start 

808 zb = peek(zp + 7) + 256*peek(zp + 8):rem dscr base 
810 ifpeek(zp + 3) = 75andpeek(zp + 4) = 69and 

peek{zp + 5) = 88andpeek{2p + 6) = 80then81 4 
812 print " error: cannot locate keyboard expander ' ;end 
81 4 zx = (peek(47) + 256'peek(48}) + 9:rem array defs 
816 forzi = 0to62:forzj = OtoS 
818zd = zb + (zi*16) + (z]'4) 
820ifzp{zj,zj)thenpokezd.zp(zj.zi) 
822 zy = zr(zj,2J):Jtzythenpokezd + 2,zy-inl{zy/256)'256 

:pokezd + 3jnt(zy/256) 
824 itlen(zs$(zj,zi)) = 0then830 
826zy = zx + (zi«12) + (zj-3) 
828 pokezd + 1,peek(zy):pokezd + 2,peek(zy+1) 

:pokezd + 3,peek{zy + 2) 
830nextzj:nextzi 
832 rem 
834itzvthenpQke785,zv-inl(2v/256}-256 

: poke786, Jnt(zv/256) : poke784 .0 
836ffzclhenpokezb-7,2C-int(zc/256)'256 

:pokezb-6,im(zc/256) 
838 2y = {peek(51) + 256'peek(52))-9;rem new start 
840 forzj = 0to8:pokezy + zi,peek(zp + zi):next:pokezb-1 .255 
842pokezb-5,zy-int(zy/256)*256:pokezb-4jnl{zy/256) 
844poke55,peek(zb-5}:poke56,peek(zb-4):clr 

:rem new top mem 
846 rem 

648 rem (store absolute version) 
850 rem 

852 input ' create an absolute version - y/n " ;f$ 
854 iff$<> " y " andf$<> " n " thene52 
856m$="n"then864 
858 input' filename for profile ' ;f$ 
860sys57812f$,8 
862poke174,0:poke175J60;poke193,peek(55) 

: pokel 94 . peek(56): sys62954 
e64clr:end 



Keyboard Expander: Profile Definitions 



ID 

DK 

LK 

OD 

Kl 

PO 

01 

IH 

CJ 

OF 

GJ 

IB 

FF 

PJ 

OK 



keypower profile definitions 
kpower.defs 



100 rem — 
1 02 rem 

1 04 rem 

106 rem 

1 08 rem 

1 1 rem (reposition shiift cursor keys) 

1 1 2 rem 

1 14 zp{nd,ua) = do + sf:2p(nd.la) = ri + sf 

116 rem 

1 18 rem (commands on strings) 

1 20 rem 

1222sS(td,s) = s$+ 'save" +q$+ "O:" +i$ + q$ 

+ ",e" +r$:rem save 
124zs$(td,p) = s$+'open15,8,15/ -t-q$+ "sO:" +i$ 

+ q$+ ":close15'' +r$:rem purge 
126zs${td,n) = s$+ ''open15,8J5,- +qS+ "rO:" +i$ 

+ " ^ ' +i$ + q$-f- " ;close15'' +r$:rem rename 
128zs$(td,l) = s$+ 'load''+q$+''0:' +i$ 

+ q$+ ",8" +r$:remload 



DP 
PL 
MN 
HJ 
MO 

CK 

ON 

OK 

FJ 
BL 
HF 
DO 

AK 

GP 
EG 

PL 

FP 

BH 

JE 
DH 
NA 

EK 

Bl 
NN 

OE 
MJ 

GF 

FF 

GN 
KJ 
JN 
Kl 

GD 

EP 

JF 

CI 

EO 

DG 

10 

LD 

MO 

LD 



130zs$(ld,r}-s$+ 'load" +q$+ '0:' +i$ + q$ 

+ ",8" +r$+ "run" +r$: rem load-run 
132z5$(ldj) = s$+ '■open15,8.l5," +q$+ "10" +q$ 

+ ■icIoselS' +r$:reminildisk 
134zsSttd,v) = sS+ 'open15.8,15/ +q$+ "vO' +q$ 

+ '[closelS" +r$:rem validaTe 
136zs${ld,g) = s$+ " loadBB PWIHIHWi F3 spcs] .8 " + r$ 

:rem load from dir 
138zs$(td,pl)^s$+ 'clr:poke43,peek(45):poke44,peek(46) 

:new"' +r$:rem test part 
140zs$(td,mi) = s$+''poke45,peek(43);poke46,peek(44):" 
1422S$(td,mi) = zs$(td.mi)+ '■poke43,1:poke44.8;clr" +r$ 

:rem back to norm 
144 rem 

1 46 rem {basic progs on strings) 

1 47 rem 

146 rem read error channel 

150zs$(td,e) = s$+ '8000open15,8,15:input#15,a,b$,c,d 

:printa,b$,c.d'' 
152zs${ld,e) = zs$(td.e)+ "icIoselS" +r$+ -runeOOO" 

+ r$+''8000"+r$ 
154 rem list dir to screen 
156zsS(td,d) = s$+ "8000n$ = cfir$(0):open1 5.8,0/ 

+ q$+ "$0" +q$+ ':get#15.a$,b$" +f$ 
158zs$(td,d) = zs$(td,d}+ '8001get#15.a$,b$jfst<>0 

lhen8005" +r$ 
1 60 zs$(td,d) = zs$(td,d) + " 8002get#15,a$,bS 

:printasc(a$ + n$) + asc(b$ + n$)-256; ' + r$ 
1 62 zs$(ld.d) = zs${td,d) + " 8003get#1 5,a$ 

:ifa$=" 4'q$ + q$+ "thenprintigotoSOOa" +rS 
164 zs${td,d) = zs$(ld,d) + ln$ + chr$(a) 
166zs${nd.a) = l$+ '8004printa$;:goto8003" +r$ 
168zs$(nd,a) = zs${nd,a)+ "8005010561 5:poke198,0 

:end" +r$ 
1 70 zs$(nd.a) = zs$(nd,a) + ' 8006k = peek(203) 

:ifk-64then80Qr +r$ 

8007ifk = 62then8005' +r$ 
8008goto8006 " +r$ 



1 72 zs$(nd,a) = zsS{nd.a) -f 
174zs$(nd,a)^zs$(nd.a) + 

-fVunSOOO' +r$ 
176 rem delete basic lines 
1 76 zs$(td,2) = s$ + "8000" -f-r$ + 





001 ■ + r$ 



003 " + r$ 
004" +rS+' 

007' +r$ 
008' +r$+' 

Oil" +f$ 





005 



009 



+ ^6002' +r$-f " 
1 80 zs$(ld.z) = zs$(td,z) + 

+ rS+ "H^'^Oa" +r$ + 
182zs${td.z) = zs$(td,z)+" 

+ r$+"d801Q" +f$ + 
1 84 rem 

1 86 rem (some basic keywords) 

1 87 rem 

188zs$(cd,a) = s$-f ''ascC:zs$(cd,c) = s$+ "chrSC 

;zs$(cd.d) = s$+ 'data' 
190zs$(cd,f) = sS+ ■'for':2sS{cd,g) = s$+ 'goto" 

:2sS(cd,i) = s$+ "input" 
192zs$(cdJ) = s$+ "list";zs$(cd,m) = s$+''mid$(" 

:zs$(cd,n)*s$+ "next" 
194 2S${cd.o) = s$+ ■open":zsS(cd,p) = s$+ "print 

:zs$(cd.r} = s$-f "right$(" 
196zs$(cd,s) = s$+'str$(" 
1 98 rem 

200 rem (jmp table and command line) 
202 rem 
204 zv = 40204:rem zc = no command fine* 

206 rem 

208 rem (interrupt routines) 



m# TMnsQctor 
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210 rem 

212 zr(nd,f5) = 40192:2r(nd.f7) = 40195 

:rem fist scroll down/up 
214 2r(sd,f5) = 40198:zr{cd,f5) = 40201 

:rem line rule enable/disable 
216 rem 
218 rem endof defs 



Keyboard Expander: " INSTALL " Program 



ON 

LJ 

JH 

EO 

DK 

GL 

LO 

PE 

MP 

MO 

PO 

EO 

JJ 

FD 

AJ 

IE 

BF 

GP 

NC 

KP 

CO 

FF 

JA 

LL 



10 rem 

12 rem general install program 
14 rem install 

16 rem 

18ifa=1then36 

20 poke55,0:poke56,32:clr 

22 input" filename ■;!$ 

24open15,8,15:open1,8,2,f$+ \p,r' 

26input#15.a,b$,c,d 

28cfose1:close15:ifa = 0then34 

30 printa,b$,c,d:end 

34gosub44:a = 1:loadf$,8,1 

36 if a$<> ■ kGxp "■ andaSO " init " 

then40 
38 sysad 

40 poke55Jb:poke56,hb:new 
42 rem 

44open1,8.2,f$+\p.r- 
46 get#1 ,x$;ifx$ = " ' thenxS = chr${0) 
48lb = asc(x$) 

50get#1,x$:ifx$="'thenx$ = chr${0) 
52hb = asc(x$):ad = lb + 256*hb 
54 tori = 1 to3:gel#1 ,x$;nexl 
56 a$= ■ ■ ;fon = 1to4;get#1 ,x$ 

;a$ = a$ + x$ 
58 next :close1: ret urn 



Keyboard Expander: list Scroll Source 



FN 
NL 


1 fem 

2 rem list scroll and line rule 


OP 

IN 
MA 


3 rem 


scroll 


IS 


I0open2.8,1,"0.scron,o0|' 


^ 


IL 


12 rem open 4,4 






PN 


14SVS700 






BC 


16 opt 02 






AG 


18, — 






AN 


20 msgflg = 


157 


;rLin mode 


LK 


22 Istx 


197 


;lasf keypress 


NN 


24 binsw = 


204 


, blink sw 


ON 


26 gdbin 


206 




CD 


28 Wnon 


207 




FM 


30 Iblx 


214 


,line# 


GJ 


32 Idtbl 


217 


; screen line links 


AJ 


34 TJ<cadF - 


646 


,col for text 


BA 


36 gdcol 


647 




HJ 


38 Isishf 


654 


Jast shift 


GP 


40 , 






HO 


42 - = $9d00 




: install address 


GO 


44 jmp 


lislup 


.scroll up 


MM 


46 jmp 


lisidn 


.scroll Oown 


LL 


48 jmp 


Iruie 


;line ruler 


IJ 


50 jmp 


Irkill 


;kill line ruler 


KK 


52; 






ND 


54 ;vecfor lab fof background rins 


EG 


56 .set up by prolile program 


DG 


58 brslarl • - 


-+3 


;slarT in! rtn 


OF 


60 brend • = 


- + 3 


;end int rin 


PM 


62 ppsiart • - 


• + 3 


;siaripaTaJel rln 


CJ 


64 ppexcl - = 


.+3 


;run exclusive 


JF 


66ppshare •» 


- + 3 


;run shared 


DM 


68 ppend • - 


• + 3 


;end parallel rtn 


IH 


70 rescur • = 


. + 3 


;resel cursor 



ML 
AM 
GN 
OK 

GW 

JH 
GC 
NJ 
BC 
AE 
LB 
AD 
LG 
MP 
KN 
LL 
OM 
MP 
KH 
FN 
NM 
PO 
ME 
MO 
NM 
KC 
OA 
BF 
LA 
GH 
BM 
HK 
FQ 
PN 
GD 
EA 

IL 

CI 

GE 

EK 

FF 

AB 

EB 

AN 

GB 

Bl 

PI 
DC 

Fl 
HK 
DE 
EC 
DP 
OE 
NM 
NB 

Nl 
CK 

Dl 
PD 

DL 

PA 
OL 
MD 

LN 

CJ 

HJ 

FJ 

ME 

ND 

CK 

JE 

GK 

IN 

CF 

JC 

AK 

HN 

NH 

MP 

DK 

U 

OE 

JE 

MJ 

MA 

JG 

ED 



72 bgwork 

74 

76 

78 

80 

82 



+ 15 



;remaining jmps 



the list scroti routines 



run lime variables 

= bgwork 
skey + 1 



84 skey 

86 ssht 

88savel = sshf + i 

90 saveK = savel + 1 

92 savec = savex + 1 

94 savBv = savec + 2 

96 first! = savev + 2 

98 first2 - fifsti + 1 

100, 

102 : — '-entry from interrupt 

104fis1up - • 

106 jsr liston 

108 lup jsr 

110 jsr Istup 

112 jsr listout 

114 beq kjp 

116 bne lexit 

118; 

120; — entry from interrupt 

122listdn 

jsr 

isr 

Ida 

sTa 

jsr 

jSf 

jsr 
beq 



; scroll up 
listin 



iscroli down 



124 

126 Idn 

128 

130 

132 

134 

136 

138 

1 40 lexjt 

142; 

1 44 ; — initiate parallel program 



Nston 

listin 

#24 

SdG 

$e56c 

Istdn 

listout 

Idn 



imp ppend 



l46lisIon 

1 48 sty 

150 stx 

152 Ida 

154 sta 

156 sta 

158 pla 

160 cic 

162 adc 

164 tax 

166 pla 

168 adc 

170 lay 

172 jmp 

174; 

176; — list up 

1 78 Islup 

180 

182IU04 

184 



Skey 
ssbf 

#$rt 

first 1 
tirst2 



#1 



#0 



ppslarl 



common point for up/dn 
save entry key 
. . .^d shift value 



;ret addr = start of parallel prg 



;low byte 



;high byte 

.Stan parallel program 



186 

188 

190 

192 

194 

196 

198; 

200lu12 

202 

204 

206lu16 

208 

210 

212 

214 

216 

218 

220; 

222 Iu20 

224 

226 

228 

230 

232 

234 !u24 

236 

238 

240 Iu28 

242 

244 tu32 

246 



Idx 

inx 

cpx 

beq 

Ida 

bpl 

jsr 

bcc 

bcs 

Ida 
sta 
sta 

ISf 

Idy 

cpx 

bne 

cpy 

bne 

rts 

dex 

cpx 

bcs 

Idx 

Idy 

dey 

stx 

sly 

Idy 

Ida 

beq 

iny 

bne 



#£» 

#25 

Iu12 

$d9,x 

Iu04 

gnum 

Iu04 

Iul6 

#SFr 

$14 

ST5 

$a613 

$5f 

$2c 

Ilj20 

S2b 

Iu20 



S2c 
Pu24 
$2c 
$2b 

$40 

$3f 

#0 

(S3f),y 

Iu36 

Iu28 



;all lines 



; linked 
;get num 

.none 



:high line num 



;find line 

;lobyt 

;hibyl 

;with Stan 

;noprev lines 

; lower 

; than start 

:correct 



; search lor 
;end of line 



G8 

AH 

KD 

NN 

NA 

FK 

EO 

LL 

PI 

DO 

HM 

OE 

Gl 

IM 

KB 

KJ 

FP 

AO 

KJ 

FO 

HF 

PJ 

DP 

AC 

GG 

JO 

FG 

LC 

KF 

DC 

NG 

DO 

PO 

HF 

AB 

EJ 

GL 

BE 

LM 

AD 

HF 

NB 

DB 

NK 

DC 

NH 

MC 

MM 

BH 

LB 

AM 

CD 

PA 

ML 

AB 

FB 

JB 

FF 

IC 

KE 

HD 

NF 

BJ 

HC 

Jl 

BD 

JC 

GB 

BM 

MK 

LE 

U 

BN 

ND 

IL 

OO 
NP 
KB 
OL 
FK 
OA 
IG 
IJ 
LO 
LL 
BJ 
GH 
BJ 



248 

250; 

252lu36 

254 

256 

258 

260 

262 

264 

266 

268 

270 

272 

274 

276 

278 

280 

282 

284 

286 

288 

290 

292 

294 Iu40 

296 

298 

300 

302 

304 

306 

308 

310 

312 

314 

316 

318 

320; 

322; — list 

324 Istdn 

326 

328 Id04 

330 

332 

334 

336 

338 

340 

342, 

344 IdOB 

346 

348 

350ldl2 

352 

354fdl6 

356 

358 Idle 

360 

362 Id20 

364 

366 

368 

370 

372 Id 24 

374 

376 Id30 

378 

380 

382 td32 

384 

386 

388 

390 

392 

394 

3961d36 

398 

400 

402 

404 

406 

408; 

410. — 

412Ji5t 

414 

416 

418 

420 

422 



rts 

iny 

Ida 

cmp 

bne 

iny 

Ida 

cmp 

bne 

dey 

lya 

dc 

adc 

sla 

Ida 

adc 

sta 

Idx 

Ida 

bmi 

Idx 

jsr 

Idx 

jsr 

Ida 

ora 

sta 

k^ 

sta 

Idx 

stx 

dex 

stx 

]sr 

jmp 

down 

Idx 

dex 

bmi 

\6a 

bpl 

jsr 

bcc 

bcs 

Ida 

sta 

sta 

pha 

bne 

cpx 

bne 

Ida 

bne 

cpx 

bne 

inx 

Ida 

bpl 

Ida 

bne 

inc 

bne 

inc 

jsr 

Ida 

bmi 

ora 

sta 

Idx 

jsr 

Idx 

stx 

jsr 

pla 

tttni 

isr 



(S3f),y 

S5f 

Iu32 

(S3f),y 

$60 

Iii32 



S3f 

S5f 

$40 

#0 

$60 

il'24 

Sd9.X 

Iu40 

#23 

Se9ff 

#0 

$e968 

$d9 

#S80 

Sd9 

#39 

$d5 

#1 

£292 

Sd6 

Se9fO 

list 



#25 

IdOS 
$d9,x 

Id04 

gnum 

ld04 

Idi6 

#Sff 
S14 
$15 

Id30 
#24 

Id20 
#SOd 

ldl2 

#23 

Id24 

$d9,x 

Idl8 

#$ft 

Idl2 

$14 

Id32 

$15 

ta613 

Sda 

ld36 

#$80 

Sda 

#1 

Se9ff 

#24 

$d6 

$e9fO 

list 
Sffd2 



Idy 
Ida 

beq 

sta 

Ida 



#1 

($5fj.y 

Is24 

savel 

#0 



; no more 

;chk 

;linklo 

;no match 

;chk 
:link hi 



;make match 



pChk last line 

not linked 
2nd last 
erase 

10 scf I dwn 



;fix up link 
land length 
;set Jnsrl 



,home 
pposi^on 



;all lines 

.linked 
igetline num 
,none 



:set 
;..tor 
;,. 1st line 
;8ave a byle 

.last 

; ret char 

;2nd last 



;lnum 



find line 
2nd line 
not linked 
unlink it 



; erase [me 
;last line 
; curs row 
;set curs 



; print ret 
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— 


M 


424 


Sla 


(t5f),y 


:ro tool list 


DM 


GOO; 






PL 


776 


dex 








PC 


426 


sTy 


$f 


llisiqoteNg 


OL 


602 rerv 


^ 


• ;rst err vect 


EA 


778 


bpl 


Ir24 






EH 


428 


Ida 


$5f 




EA 


604 


Ida 


savev 


HA 


780 


Ida 


#8 






AL 


430 


sta 


S3t 




ON 


606 


sta 


S300 


IL 


782 


sta 


spr+10 


,s5x 




ID 


432 


Ida 


S60 




KM 


608 


Ida 


savev + 1 


HK 


784 


Ida 


#56 






EH 


434 


sta 


S40 




GO 


610 


s[a 


3301 


BM 


786 


sta 


spr + 1 2 


;s6x 




HD 


436 


Ida 


#SM 


;lo max 


KN 


612; 






EK 


788 


Ida 


#S7f 






OH 


438 


sla 


S14 




PH 


614 Four 


Si 


t ;rsl cursor 


00 


790 


sta 


spr + 29 


;expx 




Dl 


440 


sia 


$15 




ND 


616 


da 


#0 ;set blink on 


DL 


792 


sta 


Spr + 21 


lenabte 




AH 


442 


imp 


$a6d7 


;into list 


HH 


618 


sla 


binsw 


EA 


794 


Idx 


#25 






CD 


444, 








KE 620 


Idx 


savec 


ID 


796 


stx 


Ifspyl 






Ml 


446;— 








OL ' 622 


stx 


3d6 


EJ 


798lr30 


rts 








JD 


448 serv 


^ 


4 


;err vec entry 


EL 


624 


Ida 


savec + 1 


GJ 


800; 










JK 


450 


cp>: 


#$0b 


,erf from 


NF 


626 


sta 


$d3 


FO 


802, kill 


line rule 






EE 


452 


beq 


Is32 


;.,eva fxd pt 


FP 


628 


sec 




HB 


804 Irkill 


sz 


> 






LD 


454 


Ida 


savel 


.restore 


JA 


630 


sbc 


#40 


BB 


806 


Ida 


#0 






FB 


456 


Idy 


*1 




10 


632 


bcc 


rculO ,noton2nd 


PH 


808 


sta 


spr + 21 


;dsabl 




NB 


458 


sta 


(S3f),y 




FG 


634 


sta 


Sd3 


AA 


810 


jmp 


brend 


;finish 




KM 


460 Is24 


Jda 


iV$Od 


;rel 


IM 


636 rcu10 


jsr 


$e56c , fix curs 


OK 


812; 










HG 


462 


jsr 


irtd2 




EP 


638; 






MP 


814; 










HP 


464 


rts 




,end 


IH 


640 gel key 


= 


* 


CL 


ei6ruter 


■ 


> 






IE 


466, 








AB 


642 


di 




EH 


818 


bit 


msgflg 


;run 




NK 


466ls32 


pla pia 




IG 


644 


Idy 


skey 


BL 


820 


bpl 


Irkill 






CN 


470 


plapla 


,clr rtss 


DD 


646 


Idx 


sshf 


MK 


822; 










LO 


472 


jmp 


Is24 




AL 


648 


cpy 


Istx 


GB 


824 Ir40 


— 


• 


ipositfon 




AF 


474; 








FE 


650 


bne 


gk40 


EP 


826 


jsr 


Ircoir 






KK 


■ 476 ,— 








AH 


652 


cpx 


istshf 


MB 


828 


Idx 


tbix 






LK 


478 gnum 


= 


* 


;getline num 


JO 


654 gk40 


rls 




OC 


830 


cpx 


Irspy 






IH 


480 


|sr 


te9f0 


set line start addr 


GA 


656; 






AC 


832 


beq 


ir30 






PP 


482 


Idy 


#Stt 




FG 


658 ; — noTused: 


same as rescur 


OF 


834 


stx 


Irsp^ 






. AD 


484gn10 


iny 






PB 


660 rcurs 


= 


' ;feset cursor 


FB 


836 


Ida 


IdlbT.x 






KN 


486 


Ida 


(Sd1),y 




IE 


662 


Ida 


binon .c^ieck blrnk 


JC 


838 


bmi 


Ir42 






iGP 


488 


cpy 


#39 




KF 


664 


beq 


rcIO 


PP 


840 


dex 








'CD 


490 


beQ 


9n20 + 1 


; end of fine 


KL 


666 


Ida 


gdbln ;origchar 


01 


842 Ir42 


txa 








KF 


492 


cmp 


#$20 




GG 


666 


Idx 


gdcol ;ong coir 


ID 


844 


a^ 


a 






LL 


494 


beq 


gnlO 




JO 


670 


Idy 


#0 


KD 


346 


asJ 


a 






BG 


496 


cmp 


#$30 




lA 


672 


sty 


bnon ;clearbfink 


MD 


646 


a^ 


a 






AJ 


498 


bcc 


gn20 + 1 




ED 


674 


jsr 


$ea13 ;resetbink 


IM 


850 


do 








JK 


500 


cmp 


#£3a 




BP 


ersrcio 


ris 




EO 


852 


acJc 


#49 






EN 


502 


bcs 


gn20 + 1 




MB 


678; 






FD 


854 


dx 


#12 






PK 

AH 


504 
506 


tya 
cic 






CH 
AC 








JG 
BB 


856 Ir44 
858 


sta 
dex 


spr + 1 .< 


;ypos 








* - ■ \ 








FJ 


' 508 


adc 


$d1 




NL 


684 ;basic line ruler routine 


DB 


860 


dex 








JP 


510 


sTa 


S7a 




EC 


686, 






OF 


662 


bpJ 


Ir44 






KK 


512 


Ida 


$tJ2 




PN 


68 B ^prl 


- 


63? .sprite data area 


LE 


864 


da 


#0 






PN 


514 


adc 


#0 




CP 


690 spr 


= 


53248 :spnie register 


BE 


866 


Wx 


#40 






CA 


516 


sia 


$7b 




GL 


692 scr 


^ 


2040 ; sprite variables 


IE 


866 


cpx 


SdS 


;max 




NE 


518 


|Sf 


$79 


,ch rgot 


BN 


694 frspyl 


= 


bgworkt 13 


DG 


870 


hr^ 


\tA6 






OF 


520 


STx 


savex 




ML i 696 rspyc 


= 


bgwork + 1 4 


IP 


872 


Ida 


#S7f 






IN 


522 


|Sf 


$a96b 


.evat num to binary 


AO 


698, 






PJ 


874 Ir46 


sta 


spr + 23 


;yexp 




EB 


524 


Idx 


savex 




fJP 


700 If Ule 


= 


• :entry from interrupt 


AH 


876 


jr^p 


Ir30 






PI 


526 


sec 






OK 


702 


Idx 


#<ruler ;start addr of tig rln 


EO 


878; 










NF 


528 gn20 


bit 


$18 




DC 


704 


Idy 


#> ruler 


OD 


880 ; 










OP 


530 


ris 






AE 


706 


jsr 


brsiarl ;start background rtn 


NF 


882 \tco\r 


^ 


■ 






Kl 


532; 








FN 


708 


bne 


Ir30 :resource is usedi 


FJ 


884 


da 


rxcadr 






EO 


534 ; 








MD 


710; 






LC 


886 


cmp 


Irspyc 






LG 


536 list in 


= 


* 




00 


712 


Ida 


#0 ;makespote 


OH 


888 


beq 


IrSB 






DL 


538 


sei 






Kl 


714 


sta 


Irspyl 


KL 


890 Ir50 


sta 


rspyc 






CJ 


540: 








KH 


716 


sta 


Irspyc 


PM 


892 


Idx 


#6 






JG 


542 serv 


= 


+ 


;set err vect 


OK 


718 


Idx 


#$3f 


AG 


894 Ir52 


sta 


spr + 39,: 


k; color 




CG 


544 


Ida 


$300 




NA 


720 in 


sta 


sprtx 


HD 


896 


dex 








lA 


546 


sta 


savev 




Jl 


722 


dex 




NH 


898 


bpl 


Ir62 






KG i 


548 


Ida 


$301 




LL 


724 


bpl 


ino 


KA i 


900lr58 


rts 








1 


550 


sla 


savev + 1 




BC 


726 


Idx 


#2 


MP 


902; 










ED 
KK 


552 
554 


Ida 
sta 


#<lserv 
$300 




FJ 

JB 


728 
730fr12 


Ida 
sta 


sprLx 


EG 


904 end 




- 










ED 


556 


Ida 


#>lserv 




DJ 


732 


dex 














CL 


558 


sta 


$301 




NM 


734 


bpl 


Ir12 












GK 


560; 








LC 


736 


Idx 


#2 












PK 


562 scur 


= 


* 


;save cursor 


CA 


73Btr14 


sta 


sprl-f 27,x 












FM 


564 


isr 


rescur 


; re set cursor 


LJ 


740 


dex 














IF 


566 


Ida 


#255 


.set blink oft 


NN 


742 


bpl 


Ir14 












FE 


568 


sta 


bJnsw 




OF 


744; 
















AP 


570 


Ida 


SdG 




MD 


746 


Idx 


^ 












MP 


572 


sta 


savec 




CH 


748 


Ida 


#13 












LO 


574 


Ida 


$d3 




PJ 


750 Ir20 


sta 


scfpX ,ptrs 












CM 


576 


sta 


savec + 1 




HK 


752 


dex 














NC 


578 


Ida 


*0 




MN 


754 


bpl 


Ir20 












NB 


580 


sta 


Sd3 


;column 


FB 


756 


Ida 


ixcadr 












EN 


582 


di 






IK 


?58 


(ST 


IrSO ; color 












EP 


584 


jsr 


ppexci 


;run exclusively 


NC 


760 


Ida 


#$60 












GD 


586 


rte 






CJ 


762 


sta 


spr + 16 .rr^sbx 












CM 


588; 








NH 


764 


sec 














MB 


590 ; 








IF 


766 


Ida 


#216 












01 


592 lisloul 


= 


• 




HF 


768 


Idx 


#8 












LO 


594 


sej 






Fl 


770 Ir24 


sta 


spr.K ,xpos 












PD 


596 


Ida 


#0 




PK 


772 


sbc 


#48 












DH 


598 


sta 


$292 


,clr scroll 


NL 


774 


dex 
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News BRK 



Submitting NEWS BRK Press Releases 

If you have a press release which you would like To submit for the NEWS BRK 
column, make sure thai The computer or device for which ihe product us 
intended is prominently noted. We receive hundreds of press releases for each 
issue, and ones whose intended readership is not clear must unfortunately go 
siraighl to the trash bin. It should also be mentioned here Ihat we only print 
product releases which are in some way applicable to Commodore equipment. 
News of events such as computer shows should be received at least 6 months in 
advance. 

Transactor News 

Transactor Writer's Guide Finally Finished 

That's right! After 3 years of collecting, compiling, re-arranging, and generally 
ensuring completeness, The T, Writer's Guide is done. We kept all those 
requests in a file and have sent out about 200 so far. if you would like one, 
they're free for the asking. Call or write the office in Milton, Ontario- 
Subscription Timing 

Remember, if we receive your subscription order within two weeks of the 
release of an issue, your subscription won't start until the next issue. The mail 
list is sorted and printed about two weeks before each release date. All the mail 
is processed, sometimes the "morning of^ the day we print up the list. If your 
subscription order comes in the day after, it won't appear on the "big list", 
which means it won't be sorted into our mailing at second class postage rales. 
We can't send out mags at first class postage rates, so if you sent your sub 2-3 
weeks before a release date, and your Transactor doesn't show within 2-3 
weeks after the release dale, you should probably buy one more off the news 
stand until your subscription gets "engaged". 

Free Transactor T's witli Mag+Disk Subscription 

For a limited lime only, subscribe or renew to a combination magazine and disk 
subscription, and well send you a free Transactor T-Shirti You save 29% off the 
magazines, 16% off the disks, and get a Transactor T worth 113.95 {S17,95 if 
you order the jumbo size!) The T-Shirts come in 5 sizes (red only), with a 3-color 
screen featuring Duke, our mascot, dressed in a snappy white tux, standing 
behind the Transactor logo done in yellow with black "3-D" borders. The 
screen was done using a special "super-opaquing" process that cost us quite a 
bit more than ihose decals that crack and fade. Mine has been through the wash 
three times and so far shows no signs of "machine punishment" like my other 
T's have. 

Transactor Disk Price increase 

A subscription to 6 Transactor Disks remains at $45.00. However, the price of 
single order Transactor Disks has been increased from S7,95 to $8,95 each - 
another good reason to take advantage of the above offer! 

Refund Poiicy 

Should any product you order be defective on receipt, return it and we'll send 
you another for no additional charge. Recently we've had a few items returned 
because "il's not quite what 1 wanted". We will credit your account Oess 
shipping and handling) for purchases of other Transactor products, but we ask 
that you please be sure you need things like G-Links or RAM boards since we 
can't refund your money. While we're on the subject, although we ve never had 
a subscriber ask for one, there are no refunds on subscriptions. 



Allow 2 to 6 Weeks 

When a mail order arrives, it's processed and prepared within 5 business days. 
But we find it takes about 1-2 weeks for the post office to deliver it. Coupled with 
Ihe fact that it takes 1-2 weeks for the order to get from you to us means it will 
prob^ly take somewhere between 2 and 6 weeks for an item to arrive from the 
day you mail the order. Please bear with us. 

Transactor Mail Order News 

Our mail-order department is expanding nicely, but our mail-order card isn't 
Seems we just can't find any more room to put more text without making it so 
small that you can'l read it. So, if you're using the card to order, we suggest you 
pull it out and cross-reference with the list below for more details. 

■ Transactor T-Shirts, 113.95 and $17.95 

As mentioned earlier, they come in Small, Medium, Large, Extra Large, and 
Jumbo. They're 13.95 each, tl7.95for the Jumbo. The Jumbo makes a good 
night-shirt /beach-top - it's BIG. I'm 6 foot tall, and weigh in at a slim 150 
pounds - the Small fits me tight, but that's how i like them. If you don't, we 
suggest you order them 1 size over what you usally buy. The design is screened 
using a "super-opaquing" process so they should wear much longer than your 
ordinary screens and iron-ons, 

■ The Transactor Book of Bits and Pieces *K $14.95 

Not counting the Table of Contents, the Index, and title pages, it's 246 pages of 
Bits and Pieces from issues of The Transactor, Volumes 4 through 6. Even if you 
have all Ihose issues, it makes a handy reference - no more flipping through 
magazines for that one bit that you just know is somewhere. . . Also, each item 
is forward/ reverse referenced. Occassionally the items in the Bits column 
appeared as updates to previous bits. Bits thai were similar in nature are also 
cross-referenced. And the index makes U even easier to find those quick facts 
that eliminate a lot of wheel re-inventing. 

■ The Tr@ns@clor 1541 ROM Upgrades, J49.95 

You can burn your own using the ROM dump file on Transactor Disk '1 3, or 
you can gel a set from us. This is an introductory offer to see how much 
responseweget- we only have 50 sets available. But if they become popular, 
we'll certainly get more in, and the price may go up. There are 2 ROMs per set, 
and they fix not only the SAVE® bug, but a number of other bugs too (as 
described in P,A, Slaymaker's article, Vol 7, Issue 02). Remember, if SAVF^@ is 
about to fail on you, then Scratch and Save may just clobber you too. This 
hasn't been proven 10056, but these ROMs will eliminate any possibilities short 
of deliberately causing them (ie allocating or opening direct access buffers 
before the Save). 

■ The Micro Sleuth: C64/1541 Test Cartridge, t79.95 US., $99.95 Cdn. 
This cartridge, designed by Brian Steele (a service technician for several 
schools in southern Ontario), will test the RAM of a C64 even if the machine is 
too sick to run a program! The cartridge takes complete control of the machine. 
It tests all RAM in one mode, all ROM in another mode, and puts up a menu 
with the following choices: 

1) Check drive speed 

2) Check drive alignment 

3) 1541 Serial lest 

4) C64 serial test 

5} Joystick port 1 lest 

6) Joystick port 2 test 

7) Cassette port test 

8) User port test 
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A second board, that plugs onto ihe User Port, contains 8 LEDs that lets you 
zero in on llie faulty chip. Complete with manual. Note: This is an introductory 
offer - prices may go up by next issue. 

■ inner Space Anthology $14,95 

This is OUT ever popular Complete Commodore Inner Space Anthology. Even 
after a year and a half, we still get inquiries about its contents. Briefly, The 
Anthology is a reference book - it has no "reading" material (ie, " paragraph s"). 
In 122 compact pages, there are memory maps for 5 CBM computers, 3 Disk 
Drives, and maps of COMAL; summaries o( BASIC commands, Assennbler and 
Ml^ commands, and Wordprocessor and Spreadsheet commands. Machine 
Language codes and modes are summarized, as well as entry points to ROM 
routines. There are sections on Music, Graphics, Network and BBS phone 
numbers, Computer Clubs, Hardware, unit-to-untt conversions, plus much 
more, , , about 2.5 million characters total! 

■ The Toolbox {PAL and POWER) $79.95 

PAL and POWER from Pro-Line are two of the most popular programs for the 
Commodore 64. PAL is an easy-to-use assembler (most assembler listings in 
The Transactor are in PAL format), and POWER is a programmer's aid package 
that adds editing features and useful commands to the programming enviran- 
ment. They come with two nice manuals, and our price is $50 less than 
suggested retail! 

■ AX1000Amigail^EGRAMBoxS729.00(+tl00S&H)U,S„ 

$1035.00(4 125 S&H)Cdn 

■ AX2000 Amiga 2 MEG RAM Box $899,00 ( + $100 S&H) U.S., 

$1276,00(+$25S&H)Cdn 
The AX2000 adds 2 Megabytes of "fast" RAM to the Amiga, allowing more tasks 
to run in the system at once, or for use as a fasl RAM-drive. The unit plugs inlo 
Ihe expansion connector on the side of the Amiga and duplicates Ihe connector 
for other devices to plug into. Up to two RAM boards may be plugged in 
together (limited by the Amiga'a power supply), adding A Megabytes. The box 
has "auto-config", so with Kickslart 1 2 the RAM will aulomatically be added to 
the system when it is booted, [f you are using Kickslart TO or LI (no aulo- 
config}, you can use Ihe program included with the AX2000 lo add the memory 
to the system, and change your startup-sequence to automatically add the 
memory on power-up. Standard expansion bus architecture was used in the 
design of the AX2000. ensuring compatability with all peripherals and operat- 
ing system releases. The unobtrusive steel box is the same height and colour as 
the Amiga, and snugs up lo the side without taking up much extra space. The 
unit is built tough and comes with a 1 year manufacturer warranty. 

This seems to be the most highly-recommended Amiga RAM board, and the 
first one to actually be available, so we're selling it here at The Transactor, You 
can order the AX2000 or the l-Meg AXIOOO from the subscription form in this 
issue. Shipping and Handling to Ihe U.SA Is via courrier and includes all 
customs clearance, or you can opt to clear shipments yourself and have it 
shipped "collect", 

■ Pocket Writer C64 $39.95 US, $49.95 Cdn 

■ Pocket Planner C64 $39.95 US, $49.95 Cdn 

■ Pocket Filer C64 $39.95 US. $49.95 Cdn 

■ Pocket Writer C128 $49.95 US, $69,95 Cdn 

■ Pocket Planner C128 $49,95 US, $69,95 Cdn 

■ Pocket Filer CI 28 $49,95 US, $69.95 Cdn 

■ Pocket Dictionary $14,95 US, $19.95 Cdn 

In our opinion, (he Pocket packages from Digital Solutions are the best you can 
gel on their own - the fact that they work with each other makes them even 
better. Planner and Filer data can be loaded into the Writer, Writer text can be 
sent to the Filer, and etcetera. The Dictionary spell checker works with both 
versions of the Writer. 

■ The GUNK C64 to IEEE Interface $49.95 

The GUNK plugs into the cartridge port, but doesn't extend the port for more 
cartridges (for that you1l need a "motherboard" of some kind). The other side of 
the GUNK is an IEEE card-edge suitable for a PET-iEEE cable. From there, any 
IEEE device can be accessed including disk drives, modems, printers^ etc The 



GUNK is "transparent" - that means it won't interfere with programs, except 
those that rely on the serial routines which it replaces (ie. programs with built- 
in "fastioaders'^ for the 1541 won't hke the presence of the GUNK), It has no 
manual (aside from one page of installation instructions) because it alters 
nothing and leaves everything unchanged! An on-board switch allows you lo 
select Serial or IEEE, GUNK works with both the C64 and the C128 in 64 mode, 
but not on the VIC 20. 

■ The TransBASIC Disk $9,95 

This is the complete collection of every TransBASIC module ever published up 
to Volume 7, IssueOI. There are over 120 commands at your disposal. You pick 
the ones you want lo use, and in any combmation! It's so simple that a 
summary of instructions fits right on the disk label. The manual describes each 
d the commands, plus how to write your own commands- 

■ Super Kii 1541 $29.95 US, ^39.95 Cdn 

Super Kit is, quite simply, the best disk file utility there is. No more losing those 
valuable copy-protected originals (like what's happened to me twice too many 
times). So far we've shipped over 300 Super Kits and orders continue to pour in. 

■ Gnome Speed Compiler $59.95 US, $69,95 Cdn 
This compiler is for BASIC 7.0 on the Commodore 128. 

^ 

m Gnome Kit Utility $39.95 US, $49,95 Cdn 

Gnome Kit is a Commodore 1 28 utility with enhancements for the BASIC editor 
(like Trace, Find, Renumber, Delete, Auto, etc.) as well as enhanced monitor 
commands, and floppy disk monitor functions. 

TraDBactor Disks, Transactor Back Issues, and Microfiche 

All issues of The Transactor from Volume 4 Issue 01 forward are now available 
on microfiche. According to Computrex, our fiche manufacturer, the strips are 
the "popular 98 page siEe"> so they should be compatible with every fiche 
reader, Some issue are ONUt' available on microfiche - these are marked "MF 
only". The other issues are available in both paper and fiche. Don't check both 
boxes for these unless you want both the paper version AND the microfiche 
slice for the same issue. 

To keep things simple, the price of Transactor Microfiche is the same as 
magazines, with one exception. A single back issue will be $4.50 and subscrip- 
tions are $1 5,00, The exception? A complete set of 18 (Volumes 4, 5, and 6) will 

cost jusl $39.95! 

This list also shows the "themes" of each issue. "Theme issues'' didn't start 
until Volume 5, issueOl. 



■ Vol. 4, Issue 01 

■ Vol. 4, Issue 02 

■ Vol.4, Issue 03 

■ VoL5.l3Sue01 

■ Vol. 5. Issue 02 

■ Vol. 5, Issue 03 

■ Vol. 5, Issue 04 

■ Vol, 5, Issue 05 

■ Vol, 5. Issue 06 

■ VoL6.]ssue01 

■ VoL6.lssue02 

■ Vol. 6, Issue 03 

■ Vol. 6, Issue 04 

■ Vol.6, Issue 05 

■ Vol. G, Issue 06 

■ Vol. 7. Issue 01 

■ Vol. Tissue 02 

■ Vol. 7. Issue 03 



(■Diskl) ■Vol. 4, Issue 04 

(■Diskl) ■ Vol. 4, Issue 05 

(■Diskl) ■Vol. 4. Issue 06 

- Sound and Graphics 

" Transition to Machine Language 

- Piracy and Protection - MF only 

- Business & Education - MF only 

- Hardware & Peripherals 

- Aids & Utilities 

- More Aids & Utilities 

- Networking & Communications 

- The Languages 

- Implementing The Sciences 

- Hardware & Software Interfacing 

- Real Life Applications 

- ROM / Kernel Routines 

- Games From The Inside Out 
" Programming The Chips 



MFonly(B Diskl) 
MF only (■Diskl) 
MF only 



I Diskl) 

(■ Disk 2) 

(■ Disk 2) 

(■ Disk 2) 

(■ Disk 3) 

(■ Disk 4) 

(■ Disk 5) 

(■ Disk 6) 

(■ Disk 7) 

(■ Disk 8) 

(■ Disk 9) 

(■Disk 10) 

(■Disk 11) 

(■Disk 12) 

(■Disk 13) 

(■Disk 14) 



Notes: The Transactor Disk 'I contains all prc^ram from Volume 4, and Disk 
"2 contains all programs from Volume 5, Issues 1-3. Afterwards there is a 
separate disk for each issue. Disk 8 from The Languages Issue contains COMAL 
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0,14, a soft-loaded, slightly scaled down version of the COMAL 2.0 cartridge. 
And Volume 6. Issue 05 published the directories for Transacfor Disks 1 to 9, 

Seodlng Cheques For Transactor Products 

If you wish to send a cheque with your subscription/order form, oryou wish to 
conceal your credit card number, you can use an envelope and tape it to the 
back of the subscription card. The post office has threatened to chaise us extra 
for sloppy business reply mall so please try to use an envelope that is smaller 
Ihan the card. Can't find one? Just trim the end off the envelope and tape along 
that edge when fixing it to the card. 

The Transactor CommuDlcatlons Disk 

The "Transactor Communications Disk" is proving to be a bigger project Ihan 
we expected. Collating a suitable manual is turning into a task almost as large 
as putting together a Transactor magazine. But it's not ready yet so don^t send 
any orders. More next issue. 

CompuServe and Quantum Link 

By the time you read this. The Transactor should have sections up and running 
on both CompuServe AND Quantum Link. 

On CompuServe use "GO CNV" for Commcklore News and Views. There you'll 
find a menu of popular Commodore related magazines. You'll be able to read 
articles that have appeared in previous issues, as well as download programs 
we've published (software for downloading from CIS is available free - see the 
item later in News BRK). Questions concerning magazine related topics will 
also be answered on a regular basis- 

On Quantum Link you1l find us In the "Meet the Press" section of the 
Commodore Information Service, You1l need the special software from Quan- 
tum Link before you can access the articles and software. 

The Transactor will be featuring a regular section on our online activities for 
both services. Next issue we'll be publishing a "Gelting Started" summary with 
complete step-by-step instructions for joining us online. 

Industry News 

Tbe Commodore Show,September 20 aDd21, 1986 

The West Coast Commodore Association is having another show at the Los 
Angeles Airport Hilton, September 20th and 21st. Judging from their February 
show in San Francisco, this one should be just as big a success. See the ad in 
this issue. 

Twin Cidea 128: The Commodore 128 Journal 

Last issue we published the address of The Twin Cities 128 Club. We copied the 
address correctly from an incorrect copy. Here's the correct address: 

Twin Cities 128 
1607 Hewitt Avenue. Suite 4 
PO Box 4625 
SaimPaui.MN 55104 
iNetZOOO 

This is the service that the resi of the country has been waiting for! Unlike 
metropolitan areas, calling your favourite data base from a remote area means 
calling long distance to the closest public dial port of a national networking 
service. And that can cost more than the service itself! iNet 2000 is a service 
operated by Telecom Canada, and (I'm told) is also working on setting up 
services in the U.S. There is a $50 subscriber fee, and hourly chaises. Then, 
from a menu, you can conned to over 1000 other online services, (including 
CompuServe) through iNet. The best part is. . . for just 13,00 per month you can 
call iNet using a 1-800 number! No more long distance charges! 



Once connected to CIS, your iNet clock stops ticking. When you exit from CIS, 
iNet starts the clock again until you connect to another service. The iNet 
package comes with a lovely manual with reference cards. I haven't tried mine 
out yet, but next issue a have a complete run-down of my results. If you can't 

waituntil then, call: 

Sylvia Abretti 

Telecom Canada 

410 Laurier Avenue W. Room 240 

Ottawa, Ontario, K1P6H5 

1-800 267 7400 

High-Powered FREE Terminal Program for the C64 

CBterm/C64 is an all-MLterminai program for the C64. It is set far above all the 
rest of the terminal programs because of a number of special features. First and 
foremost, the price is right; CBterm is FREE. 

As for the rest of the features, CBterm supports the following: 

• 40 column display and a split-screen 80 column display. (No extra hardware 

needed). 

• XMODEM and Punter file transfer protocols available. The XMODBM protol- 

col will even correctly download CompuServe .IMG files, 

• 22,5K RAM buffer with read/write and save/load to disk. Disaply RAM to 
screen or transmit RAM to modem. 

• ASCli/PETSCil file conversion built in. 

• Works wilh any and all modems, 1600, 1650, 1660, 1670, HES, Mighly-Mo, 

Hayes, RS-232 adapters. 

• 300or 1200 baud. 

• Auto dial and redial (Even on a 1660 that does not have carrier detect.) 

• VIDTEX Cursor control and positioning mode for use with Compuserve. 

Includes Low Res Graphics. 

• Full printer support- Send RAM data or control codes to printer. Even aiter the 
printer's secondary address while still on line. 

• Full DISK control - send commands or list the directory, 

• User-programmable FUNCTION KEYS to help automate your log-ins. 

• Terminal parameter controls to provide compatibility with all BBS/computer 

systems. 

• Built-in HELP screen. 

• Super extra: Direct display of the COMPUSERVE RLE encoded High Resolu- 
tion Pictures- This includes the NWS Radar Weather Maps, CB Users Pictures, 
FBI 10 Most Wanted List pictures, etc. 

• The high resolution screen (Text or pictures) may be dumped to any STAR or 
EPSON dot matrix printer. Option overlay programs provide printing of these 
pictures in a low resolution mode to ANY STANDARD printer. And they can 
be saved to disk in KOALA picture format and can then be altered with 
KOALA software. 

CBterm/C64isavailablefordownloading from Data Library 2 of the CB Interest 
Group SIC on the CompuServe network. This Data Library contains the 
CBlerm/C64 program along with all supporting documentation and overlay 
programs. They may be downloaded with any XMODEM or CompuServe 
executive program (Vidtex). 

For those people who cannot download, or who are not on the CompuServe 
network, CBlerm/C64 is made available free by sending a blank disk, along 
with a stamped self-addressed disk mailer to: 

Chris Dunn 

5848 N, Whipple St. 

Chicago, 11. 60659 

You must include postage and the return mailer. 

Any questions can be directed to theSYSOP of the CB Interest GroupSlG (CBIG) 
on CompuServe (GO CBIG) or via EZplex to [76703,717]. CBterm^ originally 
written for use on CompuServe and its CB simulator, has grown into the 
powerful program It is today and incorporates requests by users as to what Ihey 
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would like to see in a ler minal program. New features are being added and are mullilasking and multiwindowing. Aegis Draw is only (he beginning. We are 
released in DL2 of tfie CBIG SIG, planning "expanded CAD' products in the future. 



CBterm is distributed free, for non-commercial or private use so thai all C64 
users can enjoy the world of telecommunicating. CBterm/C64 and all related 
files are {C) 1985 by Chrisdos. They may NOT be used for any commercial 
purpose. All rigfits reserved, VIDTEX, EXplex and CB simulator are TM, 
CompuServe Inc. Chris Dunn (Chrisdos) is an information provider/SYSOP and 
is not an employee of CompuServe Inc, 

Tlie mail-in disk copy offer may be terminated at any time. 

Hardware Interconnection Products 

Master Software has announced four new interconnection products for Com- 
modore computers; "Modem Master", "Modem Master Plus". "Y-NOT?", and 
the "80 Mono Cable", 

"Modem Master" is a four-foot extender for the user port (modem port) of the 
VIC 20. Commodore 64, SX-64. Plus/4, and Commodore 128, allowing devices 
lo be placed in a location more convenient than behind the computer. The 
extender uses tangle-proof ribbon cable and connectors wfiich are keyed to 
prevent incorrect installation. List price of "Modem Master" is $29.95. 



"Modem Master Plus" is a "Modem Master" with a reset switch. The reset 
swilhc is buffered to prevent electrical damage to the computer, and programs 
lo recover a BASIC program that was in memoiy at the time of reset are 
included. Price is $34.95. 

The question of whether two printers can be used simultaneously with 
Commodore computers is answered: Y-NOT? "Y-NOT^ is a six-foot long "Y" 
cable for tfie six-pin serial port of all Commodore computers. "Y-NOF 
contains one male six-pin plug and two female six-pin jacks, and can be used 
tooperate two printers or to separate the disk drive and printer to opposite sides 
of the computer set-up for added system flexibility. "Y-NOT?" is priced at 
SI 5.00. 

The "80 Mono Cable" will produce an 80 column monochrome display from 
the Commodore 128 in 80 column mode on any compositle colour monitor or 
monochrome monitor It is six feet long and plugs into the RGBI port of the 
computer and into the video input jack of the monitor. The "80 Mono Cable", 
priced at S9.00, is ideal for word processing and spreadsheet applications, or 
any lime a colour display is not needed. 

All prices include shipping lo USA and Canada destinations. Discounts are 
available for dealers, distributors, and computer clubs. Add 3.00 for C.O.D. 
{Maryland residents must include 5^ sales lax.) 

Master Software 
6HilleryCourt 
Randallstown,MD 21133 
(301)922-2962 

Aegis Ships CAD Program for the Amiga 

Santa Monica, CA — Aegis Development, Inc. has begun shipments of Aegis 
Draw. 1 2-dimensional CAD program for the Commodore-Amiga computer. 
This is the program that many owners and potential owners of Amigas have 
been waiting for, and A^is Draw is l>emg touted as the program the machine 
was created for. 

"Based on our intitial orders and end user requests, there are thousands of 
people out there who have been wailing for Aegis Draw before buying their 
Amiga. Now that the product is shipping, you can expect to see Amiga sales 
increase significantly". Company president David Barrett stated. He went on to 
say that, 'This prc^iram was created specifically for the Amiga, and is not 
simply a port from another computer. Therefore, we lake advantage of many of 
the Amiga's characteristics which make this program so powerful, such as 



Aegis Draw requires a basic Amiga computer, 51 2K or RAM, and one disk drive 
(although two drives and/ or a hard drive is highly recommended, as well as 
additional memory). Allowing use of the multitasking capabilities of the Amiga, 
Draw wiil give the user two windows to work in - either two separate drawings, 
or two windows of the same drawing (more windows are allowed when more 
memory is available). Some of Draw's significant features include: 



• Cloning of any part of a drawing 

• Full editing controls 



• Infinite levels of Zoom 

• 16 customizable colours 

• LJnes. arcs, circles, rectangles, and freehand drawing tools 

• Independent window display features • Grid and Data snap (on/off ic^e) 

• Numeric display • Save as IFF or ASCII files 

• Background ploUing/prinling • Customizable plotter driver 
■ Undo feature allows last operation lo tie undone 

• Full rotation of any object/pan • Parts library for each drawing 

• Inlerchangable parts l^elween drawings* Resizing of any object/part 

• Automatic dimensioning of any part or piece of drawing 

• Customizable scale and grid size per window 

• Numerical input for precise positioning of objects/ drawings 

• Horizontal or vertical printout 

• Works with digitizing tablets, plotters, or printers supported by the Amiga. 

Aegis Draw also takes advantage of keyboard input with corresponding 
keystrokes for the most popular tasks. This program can be used by novices as 
well as experienced CAD engineers for simple to complex design. Aegis Draw is 
available at authorized Amiga dealers and software stores. The suggested retail 
price is $199.95 (U.S| For more information, contact: 

AEGIS DEVELOPMENT, INC, 

2210 Wilshire Blvd. '277 

Santa Monica, CA 90403 (213)306-0735 

WCCA PRESEMTS 



ii§ 



SEPTEMBER 20 & 21 1986 

SHOW TIMES 10AM -6PM P.S.T. 

LOS ANGELES AIRPORT HILTON 

CALL 21 3-41 0-4000 for hotel reservations 



• EXHIBITS, EVENTS. AND DOOR PRIZES 

• NATIONAL COMMODORE SPEAKERS 

• SHOW SPECIALS & DISCOUNTS 

• SEE THE LATEST INNOVATIONS IN 
HARDV^ARE/SOFTWARE TECHNOLOGY 
FOR THE COMMODORE MARKET 

The only West Coast exhibition and conference 

focusing exclusively on the AMIGA, 

Commodore 128, and 064 marketplace 

REGISTRATION FEES: ONE DAYS10.00 TWO DAYS $15,00 



FOR MORE INFORMATION AND DETAILS CONTACT: 

WESTCOASTCOMMODORE ASSOCIATION. INC. 

P.O. BOX 21 0638 

SAN FRANGiSCO, CALIFORNIA 94121 

{415)982-1040 BETWEEN 8AM-5PMPST 
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Computoons 



TV PINNERS VPT DINNE-RS 
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I have an older model, but it's very intelligent. 



vv 




j^t^Mj, 




IT won't NMORK HELf N . . . . 

YOU'RE APPLE AKOrtAC0N\MQD0RE 
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2 MEGs For Your 

AMIGA 



A must for software developers 

Allows more programs to run simultaneously and faster 

Can be used to increase system RAM and/or as a FAST RAM DRIVE 

Uses standard memory bus architecture to allow for future compatibility 

Allows full use of memory expansion port for additional peripherals 



AX2000 2 MEG RAM Board $899,00 U.S. ($1276.00 CDN) 
AXIOOO 1 MEG RAM Board $729.00 U.S. ($1035.00 CDN) 

Complete in case, nothing else to buy! 
1 year manufacturer warranty! 



DEALER INQUIRIES INVITED 

Comspec Communications Inc. 
153 Bridgeland Avenue, Unit 5 

Toronto, Ontario, Canada 
M6A 2Y6 (416) 787-0617 



Mail order through The Transactor 
(see order card and News BRK) 

Shipping via courrier: within Canada add $25.00. To U.S.A. add $100.00 U.S. - includes customs clearance 

AMIGA is a registered trademark of Commodore Business Machine. 




You and your computer could make 

beautiful music together. . . 




That is, with a little help from 



y/ 



7 / 




V 



f 





i 



*__ 




T 



:' / ^ 



^ 



7 



f \ 



\)^ 






\ 



I 



) 



u. 





USA 



Pleasesendme6consecutiveTianiaclwsstariing with the next issue! 

D I'm subscribing to the magazine AND the disk, so please DU-S-A. 815, DForeign $21,us, 

send me my FREE T-Shirt in the size indicated below. DAir Mail (Overseas only) SM.us. 

D Renewal (please include your Subscription Number (rom mailing label) 

D New Subscription (D Please send microfiche inslead of magazines) New address^ D 



Name & Address . 

(please include your posial/zip code); 



SAVE 

29% OFF 

Cover Price 



D Transactor Ts QS. DM. DU DXL. $13.95*. QJumbo, $17.95" 

n Transactor Book of Bits and Pieces "1 $14.95* 

n Transactor Microfictie Set (Vo!4 + VolS -t- Vol6) 39.95' 

n AXIOOO 1 f^EG Amiga board $729.00" + S&H (see below) 

D AX2000 2 MEG Amiga board $899.00" + S&H (see below) 

D $100" S&H end. for each AX board, or D Ship collect 

n The Toolbox (PAL and POWER) $79.95' 

D Inner Space Anthology $H.95* Note: See News BRK for details on above items 



D Pocket 

D Pocket 
n Pocket 
D Pocket 
D Pocket 
n Pocket 



Writer 

Planner 

Filer 

Wriler 

Planner 

Filer 



C64 
C64 
C64 
CI 28 
CI 28 
CI 28 



$39.95* 
$39,95* 
$39.95' 
$49.95* 
$49.95* 
$49,95* 



D Pocket Diciionaiy $14.95* 
D The TransBASIC Disk $9.95" 
n The G-Link Inleriace $49.95* 
D The Micro Sleuth $79.95* 
D 1541 ROM Upgrade $49,95* 
D Super Kit 1541 $29.95" 
□ Gnome Speed Compiler $59,95* 
D Gnome Kit Utility $39.95' 



The Tnmaactor Disk (154 1 /4040/MSD format) 
D Please send 6 consecutive disks to correspond 

with my magazine subscription: $45,00-* 

n Disk 9 
Send these disks at $7-95* each. 



DDisk 1 

DDisk 2 

DDisk 3 

DDisk 4 



DDisk 5 

DDisk 6 

DDisk 7 

DDisk 8 



D Disk 10 
D Disk 1 1 
D Disk 12 
D Disk 13 
□ Disk 14 



Traoftactor Back I««ue«: $4.50* each, MF $4.50* eacb(MF=Microfiche) 

a Vol.4. Iss.Ol D MP □ Vol5, I5S.02 D MF D Vol.6. Iss.03 D MF 



n Vol.4, lss,02 D MP 
n Vol.4. Iss.03 DMF 
D Vol.4. ISS.04-MF only 
n Vol.4. Iss-OS-MF only 
D Vol.4. ISS.06-MF only 
□ Vol.5. IssOl DMF 



□ Vol.5, Iss.03 MF only 

□ Vol.5. lss-04-MF only 

□ Vol,5. lss.05 □ MF 

□ Voi.5.1ss.06^MF 

□ Vo!.6,lss,OI □MF 

□ VoL6Jss.02^MF 



□ Vol.6. Iss.04 □ MF 
D Vol.6, lss.05 DMF 
D Vol.6, lss.06 DMF 
DVoL7,l5s.01 DMF 
D Vol.7, I5S.02 □ MF 
D Vol.7. Iss.03 DMF 



Prices are In U.S. Dollars 



NOTE: Prepayment required. Purchaae orders will be accepted ONLY if accompanied by payment. 



D Cheque/MO- enclosed 
D Visa D MasterCard 



Cheque*. 

Acct." 



Dated. 



Amount 



Expires ^ 



I use the following Commodore equipmenl: 



nvic 20 

Disk Unit: 



DC 64 
DSFDIOOI 



nC128 
D 1540/41 



D Amiga 
n4040 



DB128 
08050 



08032/96 
O8250 



D16/+4 
01571 



O Please send dealer information for The Transactor. 



06/86 



BUSINESS REPLY MAIL 

FIRSTCLASSPERMITNO 390 BUFFALO. NY 



POSTAGE WILL BE PAID BV AOOFlESSEE 

iransaclor 

277 Linwood Avenue 
Buffalo. NY. 14209-9990 



NO POSTAGE 

NECESSARY 

IF MAILED 

IN THE 

UNITED STATES 




lH.ll.l..lMl.llln,|,|..|,lHl.l..l.lMll„.I.Mll 










s^ 



k \ \ \ \ \ ' 


^\ \ \ \ \ 


^L\ \ \ \ ~ 


^^\ \ \ \ 


^Bk\ \ \ 



/ 



BY MARTY FRANZ & JOE PETER 

1 I I I 1 — 



SWGLE/DI/4L HOfMM COPIER 

Copies a disk with no errors in 32.68 seconds, 
dual version has graphics & musJc, 

SINGLE/DUAL NIBBLE COPfER 

Nibble Copies a disk in 34,92 seconds. Dual 
version has graphics 8i music. 

SINGLE/DUAL FILE COPIER 

7 limes normal DOS speed. Includes multi-copy, 
mulli-scratch. view/edit BAM, & NEW SUPER 
DOS MODE. In Super DOS Mode, it transfers 
7-15 limes normal speed, copies 150 tjlooks in 23 
seconds. 

TRACK & SECTOR EDITOR 

Full editing of t&s in hex, dec, ascii, bin. Includes 
monitor/disassembler with printout commands. 



GCR EDITOR 

Yes disk fans, a full blown sector by sector or 
track by track GCR Editor, fncludes TRUE Bit 
Densityrrrack Scan. 

3 SUPmOOS FAST LOADERS 

Over 15 times normal DOS speed. Super DOS 
Files are still Commodore DOS compatible. 
Imagine loading 150 blocks in 10 seconds, 

SUPER NIBBLER/ 
SUPER DISK SURGEON 

Quite frankly, these will provide you the user with 
the backup you need! Even copies itself. 
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$29.95 us 

PLUS $3.00 SHIPPING/HANDLING CHARGE - $5.00 C.O.D. CHARGE 

\ V 
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PRISM 

SOFTWARE 




SUPER KIT/1541 is for archival 
use onlyl We do not condone 
nor encourage piracy of any kind. 



i I \ 

401 LAKE AIR DR., SUITE D • WACO, TEXAS 76710 
ORDERS (817) 757-4031 • TECH (817) 751-0200 

MASTERCARD & VISA ACCEPTEO 




See center page for 
mail order card. 
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Type in a lot of Transactor programs? 

Does the above time and appearance of the sky lool^ familiar? 

With The Transactor Disk^ any prc^ram is just a LOAD away! 

r 

Only $8.95 Per Issue 
6 Disk Subscription (one year) 
» Just $45.00 

_ (see order form at center fold) 





Also check out the TransBASIC Disk 
Complete with 24 page manual, just $9.95! . 
See The TransBASIC Column in this issue. 



